View Single Post
 
Old 07-20-2015, 11:48 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,369
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Unfortunately, Word doesn't provide a global setting, or even a 'Links' collection that one could use to programmatically change all the links. All that leaves you with is a macro to go through every field, shape and inlineshape in the document, looking for links to re-set. A macro you might use for that is:
Code:
Sub ToggleLinkUpdates()
Application.ScreenUpdating = False
Dim Rng As Range, Fld As Field, Shp As Shape, iShp As InlineShape, Rslt As Variant, bUpd As Boolean
Rslt = MsgBox("Set Link Updates to Auto (Y) or Manual (N)?", vbYesNoCancel, "Toggle Link Updates")
If Rslt = vbCancel Then Exit Sub: If Rslt = vbYes Then bUpd = True: If Rslt = vbNo Then bUpd = False
With ActiveDocument
  For Each Rng In .StoryRanges
    For Each Fld In Rng.Fields
      If Fld.Type = wdFieldLink Then Fld.LinkFormat.AutoUpdate = bUpd
    Next
    For Each Shp In Rng.ShapeRange
      If Not Shp.LinkFormat Is Nothing Then Shp.LinkFormat.AutoUpdate = bUpd
    Next
    For Each iShp In Rng.InlineShapes
      If Not iShp.LinkFormat Is Nothing Then iShp.LinkFormat.AutoUpdate = bUpd
    Next
  Next
End With
Application.ScreenUpdating = True
End Sub
You might also take a look at: https://support.microsoft.com/en-us/kb/970154 . Although written for Office 2007, the same applies to Office 2010. The Office 2010 Registry key, though, would be in -
HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\W ord\Options
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote