时间戳

首页 > 解决方案 > Wscript.Quit 在 VBA 中给出错误 424 for word

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

问题描述

我正在为 Word 编写一些 VBA 代码，以便将用户重定向到链接（如果他们愿意），或者如果不使用是/否框则关闭窗口。问题是如果用户不想继续链接，代码会给出错误 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” 。我该如何解决这个问题？

谢谢！

标签： vbams-wordwsh

解决方案

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

您收到该错误是因为，在您的代码中，WScript是 a Variant/Empty，只是因为Option Explicit您的模块顶部缺少，这允许 VBA 代码编译和运行而不验证每个变量是否已正确声明（这意味着拼写错误很高兴编译和运行以及） - 换句话说，它是一个未声明的变量，并且由于您正在对其进行成员调用，因此根据 VBA 语法，它只能是一个对象......除非它不是，因此“需要对象”。

  • 远程指令。
  • 添加Option Explicit到模块顶部
  • 声明所有变量。研究如何使用该Dim语句。

推荐阅读