Wscript.Quit 在 VBA 中给出错误 424 for word

Question

我正在为 Word 在 VBA 中编写一些代码，以便将用户重定向到 link（如果他们愿意）或关闭 window（如果不使用 [=24=） ] 盒子。问题是，如果用户不想继续 link，代码会给出 error 424: Object required.

Set objShell = CreateObject("Wscript.Shell")
intMessage = MsgBox("Would you like to read about alternatives to these words?", vbYesNo, "Access Denied")
If intMessage = vbYes Then
objShell.Run ("LINK")
Else
Wscript.Quit
End If

错误424在我调试错误时高亮显示'Wscript.Quit'。我该如何解决？

谢谢！

Answer 1

WScript 是一个 VBScript 对象。您正在编写 VBA 代码。完全删除指令，WScript 未定义，没有任何意义。

您收到该错误是因为，在您的代码中，WScript 是 Variant/Empty，只是因为模块顶部缺少 Option Explicit，这允许 VBA 代码编译 & 运行而不验证每个变量是否正确声明（这意味着拼写错误也很乐意编译 & 运行） - 换句话说，它是一个未声明的变量，因为你正在制作一个成员调用它，根据 VBA 语法，这只能是一个对象......除非它不是，因此 "Object required".

远程指令。
将 Option Explicit 添加到模块的顶部
声明所有变量。查看如何使用 Dim 语句。

Wscript.Quit 在 VBA 中给出错误 424 for word

Wscript.Quit gives error 424 in VBA for word

vba

ms-word

wsh