Word VBA报错Invalid use of Property，如何遍历表格首列及所有表格？

错误原因分析 #

你遇到的「Invalid use of Property」错误，核心原因是cl是Cell对象类型变量，VBA中对象变量必须用Set关键字赋值，直接用cl = rw.Cells(1)不符合语法规则。

修复：仅遍历当前选中表格的首列 #

以下代码修复了对象赋值问题，仅处理光标所在表格的第一列：

Sub AddToFirstColumn()
    Dim tbl As Table
    Dim rw As Row
    Dim cl As Cell
    
    If Selection.Information(wdWithInTable) Then
        Set tbl = ActiveDocument.Tables(1)
        
        For Each rw In tbl.Rows
            ' 用Set为Cell对象赋值
            Set cl = rw.Cells(1)
            cl.Range.Text = _
                Left(cl.Range.Text, Len(cl.Range.Text) - 2) _
                & "|"  ' 替换为你需要添加的字符
        Next rw
    Else
        MsgBox "请将光标放在表格内后重新运行宏。"
    End If
End Sub

扩展：遍历文档中所有表格的首列 #

如果需要处理文档里的所有表格，不需要依赖光标位置，可使用以下代码：

Sub AddToAllTablesFirstColumn()
    Dim tbl As Table
    Dim rw As Row
    Dim cl As Cell
    
    ' 循环遍历文档中的每一个表格
    For Each tbl In ActiveDocument.Tables
        For Each rw In tbl.Rows
            Set cl = rw.Cells(1)
            cl.Range.Text = _
                Left(cl.Range.Text, Len(cl.Range.Text) - 2) _
                & "|"  ' 替换为你需要添加的字符
        Next rw
    Next tbl
    
    MsgBox "所有表格首列已完成修改。"
End Sub

关键细节说明 #

• 对象变量赋值规则：所有VBA对象（如Table、Row、Cell）必须用Set关键字赋值，普通变量（如字符串、数字）直接赋值即可。
• 单元格文本处理：Len(cl.Range.Text) - 2是为了去掉Word单元格末尾自带的两个隐藏结束标记，避免添加的字符出现异常。

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