Sub AcceptTrackedFields()
Application.ScreenUpdating = False
'This sub accepts any tracked changes instigated by Word affecting fields – not field code edits
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