宏 word 更新域

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选项，在自定义中添加这个宏，可以点击上方的这个宏就可以更新相关的域