keyboard shortcut in Word 2003 for updating ALL fields including headers and footers

  • Thread starter Thread starter Adrian
  • Start date Start date
A

Adrian

Hi,

Is there a keyboard shortcut in Word 2003 for updating ALL fields in a
document?

(F9 does not work for headers and footers.)

Thanks,

Adrian
 
You can assign the following macro to a keyboard shortcut:

Sub myUpdateFields()
Dim pRange As Word.Range
Dim iLink As Long
iLink = ActiveDocument.Sections(1).Headers(1).Range.StoryType
For Each pRange In ActiveDocument.StoryRanges
Do
pRange.Fields.Update
Set pRange = pRange.NextStoryRange
Loop Until pRange Is Nothing
Next
End Sub
 
Back
Top