word文档中自动更新域公式的宏代码

时间:2013-11-02 17:00:19
【文件属性】:

文件名称:word文档中自动更新域公式的宏代码

文件大小:26KB

文件格式:DOC

更新时间:2013-11-02 17:00:19

域 公式 自动 刷新

我们有时候想利用word中的域进行一些公式的计算,希望计算结果能像excel那样只要改变参加计算的数值,结果就会自动更新,这里给出了宏代码,可以实现这一功能。


网友评论

  • 可以用,有参考价值
  • 宏中应用没问题,但我换成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