我在Macbook Pro上使用的是Excel版本16.54。下面是应从Excel工作表中提取一些值并将其写入Word的代码部分。document.The Word文档存储在与Excel文件相同的文件夹中。在Word文档中写入的整个过程都是由Excel文件中的一个按钮触发的。(单击按钮时运行的函数)

首先，我得到一个提示，问题是“Microsoft Word是否打开了？”。如果我单击是(Word已打开) ...我得到一个运行时自动化错误。如果我单击No (Word已打开) ...我得到一个运行时自动化错误。如果我单击No (Word已关闭) ...我得到一个运行时自动化错误。如果关闭Word并重试，则必须单击“否”才能开始在word文档中写入内容。

我的问题是，我总是必须通过错误至少一次，以便它开始工作。是我的代码有问题，还是仅仅是因为我使用的是Macbook？

更新:它在Windows上运行没有任何问题。

    Dim wdApp As Object
    Dim wdDoc As Object 
    Dim exBk As Workbook
    Dim exSht As Worksheet
    Set exBk = ThisWorkbook
    filepath = exBk.Path & "/" & Worksheets("Content").Range("B2").Value
        a = MsgBox("Is Microsoft Word Open?", vbYesNo)
        If a = vbYes Then
            Set wdApp = GetObject(filepath, "Word.Application")
            Set wdApp = CreateObject("Word.Application")
            Set wdDoc = wdApp.Documents.Open(filepath)
        End If
    wdApp.Visible = True