WORD中自动更新域公式

来源：百度文库 编辑：神马文学网 时间：2024/04/28 23:35:03
将以下代码放在模块中
‘在WORD中我们经常用到插入域的方式来输入公式,但域有个问题就是
‘它不能自动更新,当我们与公式相关的数字改变时不能象EXCEL中的公式样
‘自动更新结果,要我们选中该域进行“更新域”才可以，多不爽。此代码的作用就是
‘来解决这个问题的：它可以每隔1分钟帮你“更新域”
Dim pTime As Date
Sub Runtimer()
pTime = Now + TimeValue("00:01:00")
Application.OnTime pTime, "AutoUpdate"
End Sub
Sub AutoUpdate()
‘自动更新域公式
‘By redwin  2003-12-29
On Error Resume Next
r = Selection.Information(wdFirstCharacterLineNumber)
With Selection
.WholeStory
.Fields.Update
‘返回至原光标所在位置
.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=r, Name:=""
End With
Runtimer
End Sub
Sub BeforeCloseA()
‘On Error Resume Next
‘Application.OnTime pTime, "AutoUpdate", , False
End Sub
WORD中自动更新域公式 Word表格公式计算 Word 基础|公式编辑器 Word中的“公式编辑器” Word“公式编辑器” 教你如何快速复制Word表格中公式 - 电脑软件技术 - 街拍论坛 美观又实用 WORD中快速插入公式几则技巧(2) Word：公式编辑器亲密接触 Word表格公式计算_ Word：公式编辑器亲密接触 Word公式编辑器用公式编辑器创建公式！ word中如何设置 Word表格公式自动重算方法与技巧Word 亲密接触Word中的“公式编辑器” 在Word中输入国际音标 word中如何建立目录？ word中如何删除空行 word中如何删除空行 去掉word中所有超链接 在Word中制作表格 如何删除word中背景音乐 Word中直接编参考文献 删除WORD中页眉横线 excel转换到word中