如何通过Excel VBA检测Word文档是否处于打开状态？

可行方案 #

方案1：通过文件锁定状态检测（最可靠，支持全场景） #

利用Windows文件锁定机制，当文档被任何程序打开时，独占模式打开会触发错误，以此判断状态：

Function IsFileOpen(filePath As String) As Boolean
    Dim fileNum As Integer
    Dim errNum As Integer
    
    On Error Resume Next
    fileNum = FreeFile()
    ' 尝试以独占读写模式打开文件
    Open filePath For Input Lock Read Write As #fileNum
    Close #fileNum
    errNum = Err.Number
    On Error GoTo 0
    
    ' 错误码70代表文件被锁定（已打开）
    IsFileOpen = (errNum = 70)
End Function

使用示例：

Sub CheckFileStatus()
    Dim targetPath As String
    targetPath = "C:\Docs\MyReport.docx"
    If IsFileOpen(targetPath) Then
        MsgBox "文档已被打开"
    Else
        MsgBox "文档未打开"
    End If
End Sub

注：该方法会检测所有打开该文件的程序，若需仅检测Word中的状态，使用下方方案。

方案2：遍历Word应用的Documents集合检测 #

直接检查运行中的Word进程是否包含目标文档，采用后期绑定无需额外引用，兼容性更强：

Function IsWordDocOpen(docPath As String) As Boolean
    Dim wordApp As Object
    Dim doc As Object
    Dim standardPath As String
    
    ' 标准化路径，避免大小写、相对路径导致的匹配失败
    standardPath = UCase(CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(docPath))
    
    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application")
    On Error GoTo 0
    
    If Not wordApp Is Nothing Then
        For Each doc In wordApp.Documents
            ' 对比标准化后的绝对路径
            If UCase(doc.FullName) = standardPath Then
                IsWordDocOpen = True
                Exit Function
            End If
        Next doc
    End If
    
    IsWordDocOpen = False
End Function

使用示例：

Sub CheckWordDocStatus()
    Dim targetPath As String
    targetPath = "C:\Docs\MyReport.docx"
    If IsWordDocOpen(targetPath) Then
        MsgBox "该文档在Word中已打开"
    Else
        MsgBox "该文档未在Word中打开"
    End If
End Sub

注：若Word未运行，该方法直接返回False，不会启动Word进程。

常见无效方法的问题解析 #

你之前尝试的方法失效，通常是以下原因：

• 路径匹配错误：很多方法直接对比输入路径与doc.FullName，但FullName是系统返回的绝对路径，若你用了相对路径、大小写不一致的路径，会导致匹配失败。
• 未处理Word未运行场景：部分方法未做错误处理，尝试获取Word对象时触发报错，进而返回错误的布尔值。
• 仅检测Word进程存在：有些方法只判断是否有Word.exe进程，不验证具体文档，导致无论目标文档是否打开都返回True。
• 错误的文件打开模式：部分方法用只读模式尝试打开文件，不会触发锁定错误，因此始终返回False。

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