Sub DocVarUpdate()
 Dim fld As Field
 ActiveDocument.Application.Visible = False
 For Each fld In ActiveDocument.Fields
    x = fld.Update
    If Not x Then fld.Delete
    Selection.GoToNext (wdGoToField)
 Next
 ActiveDocument.Fields.Unlink
 ActiveDocument.Application.Visible = True
 Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst
 ActiveDocument.Application.WindowState = wdWindowStateMaximize
End Sub

 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   Selection.HeaderFooter.Range.Fields.Update
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument