word vba 打开弹出msgbox，每隔10秒刷新一次域值。

最新推荐文章于 2025-07-07 18:26:17 发布

原创最新推荐文章于 2025-07-07 18:26:17 发布 · 912 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

办公技巧专栏收录该内容

22 篇文章

订阅专栏

这篇博客介绍了一段VBA代码，用于在Word文档打开时显示消息框，并每10秒自动刷新所有域的值，确保文档内容的实时性。通过`Application.OnTime`方法实现定时任务，`For Each`循环遍历并更新每个域。

word vba 打开弹出msgbox，每隔10秒刷新一次域值。

Option Explicit

'Private WithEvents WdApp As Word.Application

'Public WithEvents WdApp As Word.Application
'以上声明为 Word对象 必须加关键字 WithEvents 这是前提1

'事件代码必须在ThisDocument中，这是前提2

Dim pTime As Date, aStory As Range
Sub Runtimer()
    pTime = Now + TimeValue("00:00:10")
    Application.OnTime pTime, "myUpDate"
End Sub

Sub myUpDate()

    Application.ScreenUpdating = False
    For Each aStory In ActiveDocument.StoryRanges
        aStory.Fields.Update
    Next aStory
    Application.ScreenUpdating = True
    Runtimer
End Sub


Private Sub Document_open()
MsgBox 1
myUpDate

End Sub