excel - Office for MAC：通过 VBA 从 Excel 中打开 Word 文档

Question

我在我的 VBA 代码中遇到了一个愚蠢的错误。

情况：使用 Word 模板从 Excel 中创建 Word 文档

问题：Word文档每次都打不开

如果 Word 仍处于打开状态（但在后台），则代码可以正常工作。

如果 Word 已关闭，则代码会打开 Word 但不会打开文档。Word 在“新文档”部分中打开并处于活动状态。Var wrdDoc（在我的代码中）是空的。在第一次尝试之后，我关闭 Word 并再次运行代码，它完全可以正常工作。这两个步骤我可以永久重复。只有在第二次使用封闭的 Word 运行时，它才能正常工作。

在代码之前和之后我有一些其他的想法，但这不会影响 Word 文档。

系统：MacBook Pro、macOS Mojave (10.14.2)、Microsoft for Mac 版本 16.20

通常不需要参数“NewTemplate:=True, Visible:=True”，但没有它们，文档不会出现在任何尝试中。

Dim wrdDoc, wrdApp
On Error Resume Next
Set wrdApp = GetObject(, "word.application") 'gives error 429 if Word is not open
If Err = 429 Then
    Set wrdApp = CreateObject("word.application") 'creates a Word application
    Err.Clear
End If
wrdApp.Visible = True
Set wrdDoc = wrdApp.documents.Add(template:="/<path>/template.dotx", _
    NewTemplate:=True, Visible:=True)

标签： excelvbamacosms-word