如何用Excel VBA定位无打开文档的MS-Word实例？

要定位仅运行但无打开文档的Word实例，仅靠Office对象模型的GetObject或GetActiveObject无法实现——这些方法只能关联到有打开文档的实例。需要结合Windows API枚举系统中的Word窗口，再绑定到对应的Word应用对象。

步骤1：声明Windows API函数 #

在Excel VBA模块顶部添加以下声明（64位Office保留PtrSafe，32位可移除）：

Option Explicit

Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr

Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" _
    (ByVal hWnd As LongPtr, lpdwProcessId As Long) As Long

Private Declare PtrSafe Function AccessibleObjectFromWindow Lib "oleacc" _
    (ByVal hWnd As LongPtr, ByVal dwId As Long, riid As Any, ppvObject As Object) As Long

Private Const OBJID_NATIVEOM = &HFFFFFFF0
Private Const IID_IDispatch As String = "{00020400-0000-0000-C000-000000000046}"

步骤2：编写检测函数 #

以下代码会遍历所有Word主窗口，绑定对应的应用对象并检查文档数：

Sub CheckEmptyWordInstances()
    Dim hWnd As LongPtr
    Dim wordApp As Object
    Dim processId As Long
    
    ' 枚举所有Word主窗口（类名为"OpusApp"）
    hWnd = FindWindowEx(0, 0, "OpusApp", vbNullString)
    
    Do While hWnd <> 0
        GetWindowThreadProcessId hWnd, processId
        Set wordApp = GetWordAppFromHWnd(hWnd)
        
        If Not wordApp Is Nothing Then
            ' 判断是否无打开文档
            If wordApp.Documents.Count = 0 Then
                Debug.Print "找到无文档的Word实例，进程ID：" & processId
                ' 此处可添加自定义处理逻辑（如关闭实例、标记状态等）
            End If
            Set wordApp = Nothing
        End If
        
        ' 查找下一个Word窗口
        hWnd = FindWindowEx(0, hWnd, "OpusApp", vbNullString)
    Loop
End Sub

Private Function GetWordAppFromHWnd(hWnd As LongPtr) As Object
    Dim obj As Object
    Dim iid(0 To 3) As Long
    Dim hr As Long
    
    ' 初始化IID_IDispatch
    iid(0) = &H20400
    iid(3) = &HC0000000
    
    ' 通过窗口句柄绑定Word应用对象
    hr = AccessibleObjectFromWindow(hWnd, OBJID_NATIVEOM, iid(0), obj)
    
    If hr = 0 Then
        Set GetWordAppFromHWnd = obj.Application
    Else
        Set GetWordAppFromHWnd = Nothing
    End If
End Function

关键说明 #

• OpusApp是Word主窗口的固定类名，所有Word实例的主窗口都使用这个标识。
• AccessibleObjectFromWindow API可以跳过文档限制，直接通过窗口句柄获取对应的Word应用实例。
• 遍历过程中检查Documents.Count，等于0即为目标的无文档Word实例。

使用注意 #

• 若编辑器提示oleacc相关错误，需在工具→引用中勾选Microsoft Active Accessibility，或改用晚绑定方式避免引用。

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