MS Word VBA应用程序运行时错误5941排查求助

我开发了一个MS Word VBA应用程序，运行时会生成名为document1的文档。首次运行程序一切正常，但如果保持document1处于打开状态，再次运行程序（点击模板后立即执行），会触发运行时错误5941，调试时报错代码指向Set thisTable = docThisDoc.Sections(lngLastSection).Range.Tables(1)这一行。

我尝试添加Application.Templates.LoadBuildingBlocks和On Error GoTo 0代码段来解决问题，但并未生效。请问这是否是MS 365的相关问题？若不是，恳请帮忙指出问题原因及对应的修复方案，我可随时提供更多相关细节。

LoadPurposeCodes 子程序 #

Sub LoadPurposeCodes()
    Dim thisTable As table
    Dim i As Integer
    Dim j As Integer
    Dim iRows As Integer
    Dim strCell As String
    Dim lngLastSection As Long

    Protect_UnProtect
    ' 尝试添加的代码：Application.Templates.LoadBuildingBlocks
    lngLastSection = docThisDoc.Sections.Count
    Set thisTable = docThisDoc.Sections(lngLastSection).Range.Tables(1)

    ReDim aTypes(2, 0)
    ReDim aPurpose(1, 0)

    iRows = thisTable.Rows.Count
    j = -1
    For i = 2 To iRows
        strCell = TrimCell(thisTable.Cell(i, 1).Range.Text)
 
        If strCell <> "" Then
            j = j + 1
            ReDim Preserve aTypes(2, j)
            aTypes(0, j) = strCell
            aTypes(1, j) = CStr(i - 2)  ' from
        End If
        ReDim Preserve aPurpose(1, i - 2)
        ' 尝试添加的代码：On Error GoTo 0
        aPurpose(0, i - 2) = TrimCell(thisTable.Cell(i, 2).Range.Text)
        aPurpose(1, i - 2) = TrimCell(thisTable.Cell(i, 3).Range.Text)
        aTypes(2, j) = CStr(i - 2)
    Next i

    Protect_UnProtect
End Sub

Protect_UnProtect 子程序 #

Sub Protect_UnProtect()

    If docThisDoc Is Nothing Then
        Set docThisDoc = ActiveDocument
    End If

    With docThisDoc
    If .ProtectionType = wdAllowOnlyFormFields Then
        .Unprotect Password:=LOAN_PASSWORD
    Else
        .Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=LOAN_PASSWORD
    End If
    End With
End Sub

原因判断 #

这并非MS 365专属问题，核心原因有两点：

1. 全局变量docThisDoc残留导致指向错误：首次运行后docThisDoc未被释放，再次运行时Protect_UnProtect中If docThisDoc Is Nothing Then条件不成立，直接复用旧对象，但此时模板运行的活动文档上下文可能已变化，导致无法找到目标节和表格。
2. 未做表格存在性检查：即使docThisDoc指向正确，直接访问Tables(1)未判断最后一节是否存在表格，一旦结构异常就会触发5941错误。

修复步骤 #

1. 显式重置docThisDoc，确保指向正确文档
   在LoadPurposeCodes开头添加重置代码，避免复用旧的全局对象：

   Sub LoadPurposeCodes()
       Dim thisTable As table
       Dim i As Integer
       Dim j As Integer
       Dim iRows As Integer
       Dim strCell As String
       Dim lngLastSection As Long
   
       ' 显式重置，确保重新绑定当前目标文档
       Set docThisDoc = Nothing
       Protect_UnProtect
       ' ... 后续代码不变
   

2. 添加表格存在性校验
   在访问表格前增加判断，避免直接索引访问出错：

   lngLastSection = docThisDoc.Sections.Count
   With docThisDoc.Sections(lngLastSection).Range
       If .Tables.Count > 0 Then
           Set thisTable = .Tables(1)
       Else
           MsgBox "最后一节中未找到表格，请检查文档结构", vbExclamation
           Exit Sub
       End If
   End With
   

3. 程序结束后释放全局变量
   在LoadPurposeCodes末尾添加变量释放代码，避免残留：

   Sub LoadPurposeCodes()
       ' ... 代码内容
       Protect_UnProtect
       ' 释放全局变量
       Set docThisDoc = Nothing
   End Sub
   

额外优化 #

• 移除无效的Application.Templates.LoadBuildingBlocks和On Error GoTo 0代码，这两行与当前报错无关。
• 确保TrimCell函数正确处理单元格文本（比如去除末尾的段落标记），避免空值判断逻辑出错。

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