Microsoft Office Forums - View Single Post - [Solved] Can you stop Cross References from Updating Automatically?

macropod · 05-11-2012, 04:27 PM

Hi Welshie,

You could lock selected fields via Ctrl+F11 (Ctrl+Shift+F11 unlocks selected fields).

Another approach is to accept only the tracked changes that apply to fields. Here's a macro that does just that:

Code:

Sub AcceptTrackedFields()
'This sub accepts any tracked changes affecting fields
Application.ScreenUpdating = False
Dim Story As Range, oFld As Field, oRev As Revision, Rng As Range
With ActiveDocument
  ' Loop through all range objects and accept tracked changes on fields
  For Each Story In .StoryRanges
    For Each oRev In Story.Revisions
      For Each oFld In oRev.Range.Fields
        oFld.ShowCodes = True
        Set Rng = oFld.Code
        With Rng
          .MoveEndUntil cset:=Chr(21), Count:=wdForward
          .MoveEndUntil cset:=Chr(19), Count:=wdBackward
          .End = .End + 1
          .Start = .Start - 1
          oFld.ShowCodes = False
          .Revisions.AcceptAll
        End With
      Next
    Next
  Next
End With
Set Rng = Nothing
Application.ScreenUpdating = True
End Sub