Mac系统下VBA实现Word转PDF时设置Tagged PDF为Yes的方案咨询

Mac版Word的VBA原生ExportAsFixedFormat和ExportAsFixedFormat2方法对Tagged PDF的支持存在兼容性问题，可通过VBA调用AppleScript的方式实现需求，以下是具体方案：

实现代码 #

Sub ExportToTaggedPDF()
    Dim docFullPath As String
    Dim pdfSavePath As String
    Dim appleScriptCmd As String
    
    ' 获取当前文档路径并生成PDF保存路径
    docFullPath = ActiveDocument.FullName
    pdfSavePath = Left(docFullPath, InStrRev(docFullPath, ".")) & "pdf"
    
    ' 构造AppleScript命令，指定导出Tagged PDF为Yes
    appleScriptCmd = "tell application ""Microsoft Word""" & vbCrLf & _
                      "    set targetDoc to active document" & vbCrLf & _
                      "    save as targetDoc file name """ & pdfSavePath & """ file format format PDF with properties {tagged PDF:true}" & vbCrLf & _
                      "end tell"
    
    ' 执行AppleScript
    MacScript(appleScriptCmd)
End Sub

方案说明 #

• 核心思路：利用AppleScript直接调用Mac版Word的原生导出接口，该接口支持设置tagged PDF属性，对应手动操作里的“Tagged PDF”设为“Yes”
• MacScript函数是Mac版VBA内置的AppleScript执行工具，可无缝衔接VBA与AppleScript
• 路径处理：自动将原文档路径的后缀替换为.pdf，确保PDF与原文档同目录（可根据需求修改pdfSavePath调整保存位置）

注意事项 #

• 首次运行时，系统可能会提示Word的权限请求，需授权以完成导出操作
• 如果文档存在未保存的修改，建议在代码开头添加ActiveDocument.Save避免导出内容不一致
• 若路径包含特殊字符或空格，代码中的双引号包裹逻辑已处理此类情况，无需额外修改

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