打开并运行Visio宏

Question

我在VBS文件中有以下代码，当从批处理文件运行时，它在CMD窗口中给出了一个错误。代码在常规Visio中运行，但是当移动到VBS时，我收到此错误消息：

  

预期声明结束

VBS中的代码是

Option Explicit
On Error Resume Next

MacroExample

Sub MacroExample()
    Dim vsoDoc As Visio.Document

    Set vsoDocument = Documents.Open("PathHere\Desktop\Drawing1.vsd")

    vsoDocument.ExecuteLine ("PageSel")
    vsoDocument.Quit

    Set vsoDocument = Nothing
End Sub

批处理文件中的代码是

@echo off

cscript.exe PathHere\filename.vbs