HOWTO: Update all References fields in Word 2007

I've found a macro that can update all linked-cross references in a word document.

Here is a macro code:

Sub UpdateAll()
Dim oStory As Range
Dim oField As Field
For Each oStory In ActiveDocument.StoryRanges
For Each oField In oStory.Fields
oField.Update
Next oField
Next oStory
End Sub

Works great in Windows XP SP3.

Source: http://www.technotaste.com/blog/word-macro-update-all-fields/

cheers,