谁的青春不迷茫 插曲:WORD中自动更新域公式！

来源：百度文库 编辑：九乡新闻网 时间：2024/07/14 01:19:54
将以下代码放在模块中
'在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 2007中为公式编号 如何快速复制Word表格中公式 Word中公式与文字高度不一致 word中公式分章节自动编号 讲解word 2007中编辑公式的方法 实例讲解word 2007中编辑公式的方法 WORD中快速插入公式几则技巧 Word中的“公式编辑器” word中域的使用技巧 图书自动更新 word中划线 WORD 应用技巧中 word 中加音乐 WORD中标点符号不对 Word中拼音输入常见问题 Word表格公式自动重算方法与技巧Word Word中批量更新域的两个小方法 亲密接触Word中的“公式编辑器”1 word不用公式编辑器也能 亲密接触Word中的“公式编辑器”2 Word表格公式自动重算方法 从word 中提取图片