不能设置成自动更新。如果需要更新可以尝试下列替代办法: http://support.microsoft.com/kb/159824/zh-cn
复制下列代码后
Sub AutoOpen()
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
然后打开word选项,在自定义中添加这个宏,可以点击上方的这个宏就可以更新相关的域