[VB6] Macro per aggiornare campi in Word

[eremiss]

Ciao , questa macro aggiorna i campi (per esempi il nome file a piè di pagina) ad ogni apertura di un file word

Sub AutoOpen()
'
' AutoOpen Macro
' Macro creata il 06/11/2008 da fabio
'
 Dim aStory As Range
 Dim aField As Field
 For Each aStory In ActiveDocument.StoryRanges
 For Each aField In aStory.Fields
 aField.Update
 Next aField
 Next aStory
End Sub

Io però vorrei che il campo venisse aggiornato già quando salvo il file con un altro nome, in modo che se qialcuno lo stampa prima di chiuderlo e riaprirlo il nome file sarà già aggiornato, come si fa??