word 2007 - automatically update fields in footer after save event

[Tinbendr]

[VBA]Private Sub FileSave()
Dim rngStory As Range
For Each rngStory In ActiveDocument.StoryRanges
With rngStory
.Fields.Update
End With
Next rngStory
End Sub
[/VBA]