如何在Mac上使用Excel VBA宏打开Word文档？

问题核心 #

你的代码在Mac上失效主要有两个关键原因：

• Windows与Mac的路径分隔符不一致（Windows用\，Mac用/），硬编码分隔符会导致路径解析错误。
• Mac系统中，Word的Documents集合引用文档时，不能仅用文件名，需要完整路径或在打开时直接捕获文档对象。

修复后的代码 #

Function CreateMenu()
    ' 打开Word模板
    Dim objWord As Object
    Dim objDoc As Object
    Dim templatePath As String
    
    ' 适配跨平台路径分隔符
    templatePath = Application.ActiveWorkbook.Path & Application.PathSeparator & "Menu_Template.docx"
    
    ' 尝试获取已运行的Word实例，适配Mac
    On Error Resume Next
    Set objWord = GetObject(, "Word.Application")
    On Error GoTo 0
    
    ' 若Word未运行则新建实例
    If objWord Is Nothing Then
        Set objWord = CreateObject("Word.Application")
    End If
    
    objWord.Visible = True
    objWord.Activate
    
    ' 打开文档时直接赋值给objDoc，避免后续通过文件名查找
    On Error GoTo NoFile
    Set objDoc = objWord.Documents.Open(Filename:=templatePath, ReadOnly:=True)
    On Error GoTo 0
    
    ' 调用生成文本的函数
    Call GenerateText(objDoc, objWord)
    
    Exit Function

NoFile:
    MsgBox "Menu模板未找到"
    ' 释放对象避免内存泄漏
    If Not objWord Is Nothing Then
        objWord.Quit SaveChanges:=False
        Set objWord = Nothing
    End If
    Exit Function
End Function

关键修改点说明 #

• 路径适配：用Application.PathSeparator替代硬编码的\，自动匹配当前系统的路径分隔符，确保路径在Windows和Mac上都能正确解析。
• 直接捕获文档对象：打开文档时直接把返回值赋值给objDoc，跳过后续通过Documents("文件名")查找的步骤，避免Mac上集合索引规则差异导致的失败。
• 错误处理优化：调整错误捕获逻辑，同时在模板未找到时关闭新建的Word实例，避免残留进程占用资源。
• 对象声明调整：把Word.Application和Word.Document改为Object类型（晚期绑定），避免Mac上可能存在的引用库缺失问题。

内容的提问来源于stack exchange，提问作者ondrej.janosik