VBA如何统计多个Word实例下已打开的全部文档总数

调用Word.Application.Documents.Count仅返回1的核心原因是：每个独立启动的Word进程对应一个独立的COM应用实例，不同实例的Documents集合互相隔离，默认调用只能获取到当前代码绑定的单个实例的文档集合。

实现方法 #

可以通过Windows API枚举所有运行中的Word实例，遍历每个实例的文档集合实现统计和定位需求，以下为VBA实现示例：

前置API声明（适配32/64位Office） #

#If VBA7 Then
    Declare PtrSafe Function EnumWindows Lib "user32" (ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As Long
    Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Declare PtrSafe Function AccessibleObjectFromWindow Lib "oleacc" (ByVal hWnd As LongPtr, ByVal dwId As Long, riid As Any, ppvObject As Any) As Long
    Declare PtrSafe Function CLSIDFromString Lib "ole32.dll" (ByVal lpsz As LongPtr, clsid As Any) As Long
#Else
    Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
    Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Declare Function AccessibleObjectFromWindow Lib "oleacc" (ByVal hWnd As Long, ByVal dwId As Long, riid As Any, ppvObject As Any) As Long
    Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpsz As Long, clsid As Any) As Long
#End If

Const IID_IDispatch As String = "{00020400-0000-0000-C000-000000000046}"
Const OBJID_NATIVEOM As Long = &HFFFFFFF0
Dim totalDocCount As Long
Dim targetDoc As Object

核心功能代码 #

' 统计所有Word实例的总文档数
Function GetAllWordDocCount() As Long
    totalDocCount = 0
    EnumWindows AddressOf EnumWindowsProc, 0
    GetAllWordDocCount = totalDocCount
End Function

' 枚举窗口回调函数
Function EnumWindowsProc(ByVal hWnd As LongPtr, ByVal lParam As LongPtr) As Boolean
    Dim className As String * 255
    Dim classLen As Long
    Dim wordApp As Object
    
    classLen = GetClassName(hWnd, className, 255)
    If Left(className, classLen) = "OpusApp" Then ' Word主窗口的类名固定为OpusApp
        Dim iid(0 To 3) As Long
        CLSIDFromString StrPtr(IID_IDispatch), iid(0)
        If AccessibleObjectFromWindow(hWnd, OBJID_NATIVEOM, iid(0), wordApp) = 0 Then
            totalDocCount = totalDocCount + wordApp.Documents.Count
            ' 定位指定文档可以在此处添加匹配逻辑，示例如下
            ' Dim doc As Object
            ' For Each doc In wordApp.Documents
            '     If doc.Name = "目标文档名.docx" Then
            '         Set targetDoc = doc
            '         EnumWindowsProc = False ' 找到后停止枚举
            '         Exit Function
            '     End If
            ' Next
        End If
    End If
    EnumWindowsProc = True ' 继续枚举下一个窗口
End Function

注意事项 #

• 运行代码前需要在VBA编辑器的「工具-引用」中勾选「Microsoft Word 对象库」
• 定位指定文档时，可根据Name（文档名）、FullName（全路径）等属性做匹配，匹配成功后可直接操作返回的Document对象
• 跨实例操作文档时，注意操作完成后及时释放COM对象，避免残留后台Word进程

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