Option Explicit
Dim pTime As Date
Sub Runtimer()
pTime = Now + TimeValue("00:00:06")
Application.OnTime pTime, "myUpDate"
End Sub
Sub myUpDate()
Dim aStory As Range
Application.ScreenUpdating = False
For Each aStory In ActiveDocument.StoryRanges
aStory.Fields.update
Next aStory
Application.ScreenUpdating = True
Runtimer
End Sub
运行myUpData宏,或者加上下面的部分,直接设为打开自动运行
Private Sub Document_open()
myUpDate
End Sub
更新的间隔 TimeValue("00:00:06")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024