贡献一份我找来的程序给大家：
Sub UpdateFields()
'
' UpdateFields 宏
' 更新并显示所选域的结果
'
Application.ScreenUpdating = False '关闭屏幕刷新
Dim aStory As Range
Dim aField As Field
For Each aStory In ActiveDocument.StoryRanges
For Each aField In aStory.Fields
If (aField.Code = "PAGE") Or (aField.Code = "NUMPA
可以用，有参考价值
宏中应用没问题，但我换成net代码写在程序里，域更新不全
谢谢共享，但是我想要的是vbs的，不是宏。
管用，只是我只有一个地方要用这个，大材小用了。
贡献一份我找来的程序给大家： Sub UpdateFields() ' ' UpdateFields 宏 ' 更新并显示所选域的结果 ' Application.ScreenUpdating = False '关闭屏幕刷新 Dim aStory As Range Dim aField As Field For Each aStory In ActiveDocument.StoryRanges For Each aField In aStory.Fields If (aField.Code = "PAGE") Or (aField.Code = "NUMPA