Wscript.Quit выдает ошибку 424 в VBA для слова

Question

Я пишу некоторый код в VBA для Word, чтобы перенаправить пользователей на ссылку, если они хотели бы, или закрыть окно, если не использовать поле да / нет.Проблема заключается в том, что если пользователь не хочет продолжать переход по ссылке, код выдает ошибку 424: требуется объект .

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, это может быть только объект ... за исключением того, что это не так, следовательно, "Требуется объект".

• Удаленная инструкция.
• Добавить Option Explicitв начало вашего модуля
• Объявите все переменные.Узнайте, как использовать оператор Dim.