Excel VBA统计Word文档批注数量遇运行时错误91求助

问题根源 #

错误91本质是document对象未成功创建，空对象访问Comments.Count时触发异常。带表格的文档触发该问题，主要源于两个点：

1. 使用后期绑定（CreateObject）但未定义Word内置常量wdDoNotSaveChanges，关闭文档时产生隐性错误导致对象状态异常；
2. 带表格的文档可能存在格式异常、被其他程序锁定，或路径有误，导致文档未成功打开。

修复后的代码 #

Dim appWord As Object
Dim document As Object
Dim ws As Worksheet

' 后期绑定需手动定义Word常量，wdDoNotSaveChanges的实际值为0
Const wdDoNotSaveChanges As Integer = 0

' 直接绑定工作表，避免使用Activate提升稳定性
Set ws = ThisWorkbook.Worksheets("Tabelle4")

' 创建Word应用实例
Set appWord = CreateObject("Word.Application")
appWord.Visible = False ' 调试时可改为True，方便查看文档状态

' 捕获文档打开时的错误，避免程序直接崩溃
On Error Resume Next
Set document = appWord.Documents.Open( _
    Filename:=ThisWorkbook.Path & "\Testfile_TableTextAndComments.docx", _
    ReadOnly:=True) ' 只读打开，防止文档被锁定
On Error GoTo 0

' 确认文档打开成功后再执行统计操作
If Not document Is Nothing Then
    ' Word的Comments集合会自动包含表格内的批注，无需额外处理
    ws.Range("A1").Value = document.Comments.Count
    document.Close SaveChanges:=wdDoNotSaveChanges
Else
    ws.Range("A1").Value = "文档打开失败，请检查路径或文档状态"
End If

' 清理对象，避免残留Word进程
appWord.Quit
Set document = Nothing
Set appWord = Nothing
Set ws = Nothing

核心修改说明 #

• 补全Word常量：后期绑定模式下Excel无法识别Word内置常量，手动定义wdDoNotSaveChanges为0，避免关闭文档时的隐性错误；
• 增加打开校验：通过错误捕获+对象非空判断，确保仅在文档成功打开后执行统计逻辑；
• 只读打开文档：防止文档被其他程序锁定导致打开失败；
• 移除Activate操作：直接引用工作表对象，比激活工作表的写法更稳定。

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