Mac系统Excel VBA向Word写入数据报运行时错误如何解决？

• 代码本身存在逻辑错误，Windows平台Office的VBA容错性更高掩盖了问题，Mac平台严格触发报错：
  1. GetObject用法错误：你当前写的GetObject(filepath, "Word.Application")逻辑不符合规范，第一个参数留空、第二个参数传应用类名才是获取已运行的Word应用实例；传文件路径作为第一个参数时，返回的是文档对象而非应用对象，你直接赋值给应用对象变量wdApp属于类型不匹配，Windows会做隐性类型转换所以没报错，Mac平台无该兼容逻辑直接触发自动化错误。
  2. 用户选「是」的分支下，你只赋值了wdApp，没有绑定要操作的wdDoc对象，后续操作文档时必然报错。
  3. 路径写死用/作为分隔符，Mac虽然支持但部分16.x版本Office VBA解析时容易出现路径识别失败。
• Mac Office 16.x版本的自动化接口存在适配缺陷：
  Mac版Office的OLE自动化实现和Windows不完全一致，运行中的Word实例、打开的文档不会全部注册到系统运行对象表，GetObject经常找不到已运行的程序，同时后台残留的Word僵尸进程也会导致CreateObject调用失败，这也是你必须先关干净Word才能运行成功的核心原因。

去掉手动判断Word是否打开的交互，用代码自动检测状态、新增错误处理适配Mac的特性，修复后的代码如下：

Dim wdApp As Object
Dim wdDoc As Object
Dim exBk As Workbook
Dim filepath As String
Dim isNewInstance As Boolean

Set exBk = ThisWorkbook
' 动态获取路径分隔符，适配多系统
filepath = exBk.Path & Application.PathSeparator & Worksheets("Content").Range("B2").Value

On Error Resume Next
' 先尝试获取已运行的Word实例
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
    Err.Clear
    ' 获取失败则新建Word实例
    Set wdApp = CreateObject("Word.Application")
    isNewInstance = True
End If
On Error GoTo 0

wdApp.Visible = True

' 尝试打开目标文档，避免重复打开报错
On Error Resume Next
Set wdDoc = wdApp.Documents(Dir(filepath))
If Err.Number <> 0 Then
    Err.Clear
    Set wdDoc = wdApp.Documents.Open(filepath)
End If
On Error GoTo 0

修复后代码同时兼容Windows和Mac平台，不需要用户手动选择Word运行状态，也能规避后台进程残留导致的报错。

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