Макрос обновления полей в колонтитулах

Если ваши документы содержат колонтитулы (верхние и/или нижние) с включенными в них полями, то возникает ситуация, когда необходимо обновить эти поля. Делать вручную такую операцию не очень удобно. Поэтому можно воспользоваться следующим макросом:

Sub uHeadersFooters()
'Обновление всех полей в колонтитулах активного документа во всех разделах
Dim oSection As Section
Dim HF As HeaderFooter
For Each oSection In ActiveDocument.Sections
   For Each HF In oSection.Headers
      HF.Range.Fields.Update
   Next HF
Next oSection
For Each oSection In ActiveDocument.Sections
   For Each HF In oSection.Footers
      HF.Range.Fields.Update
   Next HF
Next oSection
End Sub