遍历 Microsoft Excel 中的所有 Microsoft Word 文档（包括所有打开的 Word 应用程序）

Question

我正在使用 VBA 将 Word 文档中的数据提取到 Excel (Office 2016) 中。 用户单击 Excel 模板中的按钮，弹出用户窗体，列出列表框中所有打开的文档。 我无法找到所有打开的文档，因为它们并非都在同一个 Word 应用程序下。 不确定这是否有意义，但假设我打开了 2 个 Word 文档，Word1 和 Word2。 在我的 Excel 模板中，我单击按钮，应该会在列表框中看到 Word1 和 Word2，但我只看到 Word1； 尽管还有其他原因，但当我突出显示多个 Word 文档并同时打开它们时，往往会发生这种情况。 我转到 Word1 或 Word2 并按 Alt+F11，我可以看到每个文档都单独出现在 VBE 菜单中（以及普通插件）。 我可以关闭 Word2 并重新打开它，它通常会在与 Word1 相同的 Word 应用程序下重新打开。 如果这不起作用，那么我可以从 Word1 打开 Word2，这会强制它在与 Word1 相同的 Word 应用程序下打开。 我也可以关闭 Word1 并再次单击该按钮，然后它将选择 Word2。 我只想列出所有打开的 Word 应用程序，而不管每个文档碰巧在哪个特定的 Word 应用程序下运行。 我可以遍历所有打开的 Word 文档，但是，如果打开了多个 Word 应用程序，它只会遍历一组。 我可以遍历所有打开的 Word 应用程序吗？ 当用户窗体打开时，我使用以下代码填充列表框：

Dim wdApp As Object, mObj As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
Set mObj = wdApp.Document
On Error GoTo 0

If wdApp Is Nothing Or IsEmpty(wdApp) = True Then
    MsgBox "There doesn't appear to be any Word documents open. If there are Word Documents open, save them (if required) and close them all, then open only the one document that has the required information."
    Call cClear
    Exit Sub
End If

For Each mObj In wdApp.Documents
    If Len(mObj.Name) > 37 Then
        UserForm1.ListBox1.AddItem Left(mObj.Name, 37) & "..."
    Else
        UserForm1.ListBox1.AddItem mObj.Name
    End If
Next mObj