如何在Word VBA中用相对路径调用同目录的number.vbs脚本？

问题根源 #

你之前的写法存在两个核心问题：

1. 变量引用错误：把变量名myWb放在引号里，导致Shell尝试执行名为myWb的文件，而非变量存储的实际路径。
2. 空格路径未处理：当路径包含空格（比如你的示例路径doc sss test），Shell会将空格视为参数分隔符，无法正确识别完整路径。

正确实现代码 #

Sub AutoOpen()
    Dim wb As String
    Dim myPath As String
    Dim myWb As String
    
    wb = "number.vbs"
    myPath = ActiveDocument.Path
    
    ' 处理文档未保存的情况（未保存时Path为空）
    If myPath = "" Then
        MsgBox "请先保存Word文档到目标目录！", vbExclamation
        Exit Sub
    End If
    
    ' 拼接完整路径
    myWb = myPath & "\" & wb
    
    ' 用双引号包裹路径，解决空格问题
    Dim shellCmd As String
    shellCmd = """" & myWb & """"
    
    ' 执行VBS脚本
    CreateObject("Wscript.Shell").Run shellCmd, 1, True
End Sub

关键细节说明 #

• 路径空值判断：如果Word文档未保存，ActiveDocument.Path会返回空字符串，此时必须提示用户先保存，否则拼接的路径无效。
• 双引号转义：VBA中用两个双引号""表示一个实际的双引号，因此"""" & myWb & """"会生成带双引号包裹的路径（例如"C:\Users\yushuo\Desktop\doc sss test\number.vbs"），确保Shell能正确解析含空格的路径。
• 动态路径适配：通过ActiveDocument.Path动态获取当前目录，保证文件夹移动后脚本仍能正常运行。

内容的提问来源于stack exchange，提问作者Kevin