Sub AcceptTrackedFieldCodeChanges()
Application.ScreenUpdating = False
Dim Fld As Field
With ActiveDocument
  .ActiveWindow.View.ShowFieldCodes = True
  For Each Fld In .Range.Fields
    Fld.Code.Revisions.AcceptAll
  Next
  .ActiveWindow.View.ShowFieldCodes = False
End With
Application.ScreenUpdating = True
End Sub