[Iska]

Код:

Option Explicit

Sub UpdateAllFields()
    ActiveDocument.Fields.Update
End Sub