Updating Fields

In Header and Footer

Dim objHeader As HeaderFooter 
Dim objField As Field 

   Set objHeader = Application.ActiveDocument.Sections(1).Headers(wdHeaderFooterIndex.wdHeaderFooterFirstPage) 
   
   For Each objField In objHeader.Range.Fields 
      objField.Update 
   Next objField