Update All Fields Macro for MS Office Word

UpdateAllFields.bas

Sub UpdateAllFields()
'
' UpdateAllFields Macro
'
'
Dim oStory As Range
Dim oField As Field
  For Each oStory In ActiveDocument.StoryRanges
    For Each oField In oStory.Fields
      oField.Update
    Next oField
  Next oStory
End Sub