VisualBasic Word 中没有与应用程序关联的等待方法

use*_*213 1 vba ms-word

我有运行特定代码的 VBA 代码,我试图通过使用以下行为其提供 3 秒的等待时间来暂停下一次执行:

Application.Wait (Now + TimeValue("00:00:03"))
Run Code Online (Sandbox Code Playgroud)

但我收到以下错误:

错误:未找到方法或数据变量

Tin*_*Man 5

最好在开发代码时使用外部库引用(早期绑定)。早期绑定具有智能感知和帮助文档的优点。早期绑定的一个主要缺点是,如果安装了不同版本的库,它需要更新引用。这是最好在分发之前删除外部引用并将代码转换为后期绑定的方式。

后期绑定用于CreateObject导入和实例化类对象。

CreateObject("Excel.Application").Wait (Now + TimeValue("00:00:05"))  
Run Code Online (Sandbox Code Playgroud)

或者,您可以引用 WinApiSleep函数。

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) 
Run Code Online (Sandbox Code Playgroud)

用法:

 Sleep 3000 '3000 Milliseconds = 3 second delay
Run Code Online (Sandbox Code Playgroud)