Mac下Word VBA宏PDF导出异常：Windows正常运行Mac无PDF生成

你的VBA宏在Windows下正常运行，修改路径语法和权限后Mac端不报错但无法生成PDF，核心问题在于Mac上Word处理PDF导出的逻辑与Windows存在差异，以及路径处理的细节遗漏。以下是针对性的修复方案：

关键修复点 #

• 跨平台路径适配：放弃硬编码的\或/，用Application.PathSeparator自动匹配系统路径分隔符
• 改用PDF专用导出方法：Mac上SaveAs2保存PDF的兼容性不如ExportAsFixedFormat，后者是Word官方推荐的PDF导出接口
• 显式指定格式常量：避免依赖wdFormatPDF常量可能未加载的问题，直接使用对应数值17
• 完善文件名提取逻辑：处理Mac文件系统下的路径解析细节

适配后的完整代码 #

Sub ExportAndSave_MacCompatible()
    Dim currentDoc As Document
    Set currentDoc = ActiveDocument
    
    ' 先保存当前文档的修改
    currentDoc.Save
    
    Dim currentFolder As String
    Dim baseFileName As String
    Dim fullFilePath As String
    
    ' 跨平台获取文档所在文件夹路径
    currentFolder = currentDoc.Path
    If currentFolder <> "" Then
        currentFolder = currentFolder & Application.PathSeparator
    End If
    
    ' 提取不带扩展名的基础文件名
    fullFilePath = currentDoc.FullName
    baseFileName = Mid(fullFilePath, InStrRev(fullFilePath, Application.PathSeparator) + 1)
    baseFileName = Left(baseFileName, InStrRev(baseFileName, ".") - 1)
    
    ' 1. 导出PDF文件
    Dim pdfPath As String
    pdfPath = currentFolder & baseFileName & "-edit.pdf"
    currentDoc.ExportAsFixedFormat _
        OutputFileName:=pdfPath, _
        ExportFormat:=17 ' 17对应wdFormatPDF的常量值
    Debug.Print "PDF导出路径: " & pdfPath ' 可查看实际生成路径，用于调试
    
    ' 2. 接受所有修订并保存原格式文档
    currentDoc.Revisions.AcceptAll
    Dim docSavePath As String
    docSavePath = currentFolder & baseFileName & "-edit"
    currentDoc.SaveAs2 _
        FileName:=docSavePath, _
        FileFormat:=currentDoc.FileFormat ' 保持原文档格式，避免意外转换
    
End Sub

改动说明 #

1. 路径适配：Application.PathSeparator会自动在Windows返回\，Mac返回/，同时处理文档未保存时路径为空的情况
2. PDF导出：ExportAsFixedFormat是Mac上Word导出PDF的稳定接口，相比SaveAs2能更好地兼容Mac系统的文件权限和格式要求
3. 常量替代：直接使用数值17避免因Mac端Word未加载wdFormatPDF常量导致的隐式错误
4. 格式保留：保存修订后的文档时指定原格式，防止自动转换为其他格式

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