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)

Office for MAC：通过VBA在Excel中打开Word文档

0 个答案: