Word for Mac宏无法创建Outlook邮件，报Runtime 429错误求助

问题背景 #

办公室里Windows版Word用的宏，本来能复制当前文档内容到剪贴板、打开Outlook新建邮件、粘贴内容并填好收件人和主题，但放到Mac用户的Word里运行时，卡在Set OutApp = CreateObject("Outlook.Application")这行，弹出Runtime 429 - ActiveX无法创建对象的错误。用户完全不熟悉Mac系统，需要可行的解决方向。

报错原因 #

Windows平台的VBA靠ActiveX组件实现跨程序调用，但Mac版Office根本不支持ActiveX，CreateObject这种ActiveX方式自然没法在Mac上创建Outlook实例，这就是报错的核心原因。

解决方向与修改方案 #

1. 换用Mac支持的AppleScript调用Outlook #

Mac版Office的VBA不能用ActiveX，但可以通过MacScript执行AppleScript来调用Outlook，这是Mac平台跨程序交互的标准方式。

2. 简化文档内容复制逻辑 #

Mac版Word的VBA在复制粘贴上和Windows有差异，直接获取文档文本或HTML内容，再通过AppleScript传入邮件更可靠。

修改后的Mac兼容宏代码 #

Sub OpenEmailWithAttachment()
    Dim EmailAddress As String
    Dim EmailSubject As String
    Dim docContent As String
    
    ' 从邮件合并数据源获取收件邮箱和邮件主题
    EmailAddress = ActiveDocument.MailMerge.DataSource.DataFields("Email").Value
    EmailSubject = "Request" & ActiveDocument.MailMerge.DataSource.DataFields("RqId").Value
    
    ' 获取当前文档的文本内容（要富文本的话看下面补充说明）
    docContent = ActiveDocument.Content.Text
    
    ' 构建调用Outlook的AppleScript代码
    Dim scriptText As String
    ' 注意转义文本里的双引号，避免AppleScript报错
    scriptText = "tell application ""Microsoft Outlook""" & vbCrLf & _
                 "set newMail to make new outgoing message with properties {subject:""" & EmailSubject & """, content:""" & Replace(docContent, """", """""") & """}" & vbCrLf & _
                 "make new recipient at newMail with properties {address:""" & EmailAddress & """}" & vbCrLf & _
                 "open newMail" & vbCrLf & _
                 "end tell"
    
    ' 执行AppleScript
    On Error Resume Next
    MacScript scriptText
    On Error GoTo 0
End Sub

补充说明 #

• 如果需要保留文档的富文本格式，可把docContent = ActiveDocument.Content.Text改成docContent = ActiveDocument.Content.WordOpenXML，直接把Word的XML格式内容传给AppleScript的content属性（同样要注意转义双引号）。
• 要加附件的话，在AppleScript里加一行：make new attachment at newMail with properties {file name:"/Users/你的用户名/文件路径/attachment.pdf"}，路径要用Mac的斜杠格式。
• 第一次运行可能会弹出权限提示，去系统偏好设置→安全性与隐私→隐私里，允许Office访问Outlook就行。

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