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

最新推荐文章于 2023-10-10 07:19:09 发布

月清晖

最新推荐文章于 2023-10-10 07:19:09 发布

阅读量775

点赞数

分类专栏：办公技巧

本文链接：https://blog.csdn.net/impish0/article/details/116810488

版权

办公技巧专栏收录该内容

22 篇文章 1 订阅

订阅专栏

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