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.StoryT ype
For Each pRange In ActiveDocument.StoryRanges
Do
pRange.Fields.Update
Set pRange = pRange.NextStoryRange
Loop Until pRange Is Nothing
Next
End Sub

Great. Thanks Greg!

Adrian
"Greg Maxey" wrote in message
oups.com...
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.StoryT ype
For Each pRange In ActiveDocument.StoryRanges
Do
pRange.Fields.Update
Set pRange = pRange.NextStoryRange
Loop Until pRange Is Nothing
Next
End Sub