Word VBA删除第三列含0行时出现5941错误的修复方法

错误原因 #

• 5941错误是因为部分表格列数不足3列，代码尝试访问不存在的第3列单元格导致。
• 原代码获取单元格文本的方式存在问题：Word单元格的Range.Text会包含隐藏的单元格结束标记（Chr(13) + Chr(7)），直接使用Trim无法准确提取实际内容，导致判断逻辑失效。

修正后的代码 #

Sub DeleteRowsWithZeroInThirdColumn()
    Dim doc As Document
    Dim tbl As Table
    Dim rngCellText As String
    Dim i As Long ' 显式声明循环变量类型
    
    Set doc = ActiveDocument
    
    ' 遍历文档中每个表格
    For Each tbl In doc.Tables
        ' 先检查表格列数是否≥3，避免访问不存在的列
        If tbl.Columns.Count >= 3 Then
            ' 反向遍历行，避免删除行后索引混乱
            For i = tbl.Rows.Count To 1 Step -1
                ' 获取单元格文本并移除Word的单元格结束标记
                rngCellText = Trim(Replace(tbl.Cell(i, 3).Range.Text, Chr(13) & Chr(7), ""))
                
                ' 判断是否为纯"0"
                If rngCellText = "0" Then
                    tbl.Rows(i).Delete
                End If
            Next i
        End If
    Next tbl
End Sub

关键改动说明 #

• 增加列数校验：处理每个表格前先判断列数是否≥3，跳过不符合条件的表格，从根源避免5941错误。
• 优化文本提取逻辑：通过Replace移除Word单元格自带的结束标记，再用Trim清理空格，确保能准确获取单元格内的实际内容。
• 规范变量声明：显式声明循环变量i的类型为Long，避免隐式声明带来的潜在问题。

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