Word - Actualizacion automatica campos

Quiero actualizar los campos de las tablas de mis documentos word a la hora de imprimir. He probado con el menu Herramientas>Opciones>Imprimir>Actualizar campos pero no me funciona, ¿alguien sabe la causa? He de decir que utilizo Word03 y las tablas recogen la info de un Access03

http://support.microsoft.com/kb/922075/es

Sub UpdateAllFields()

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