Cacher is the code snippet organizer for pro developers

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