访问WORD表格行或列时产生的错误"无法访问此集合中单独的行，因为表格有纵向合并的单元格。"

最新推荐文章于 2020-11-22 02:17:15 发布

foreverfall

最新推荐文章于 2020-11-22 02:17:15 发布

阅读量1.3w

点赞数 2

分类专栏： WORD-VBA

WORD-VBA 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了解决Word中不均匀表格编程问题的方法，包括如何通过选定特定行或列并使用Cells属性来避免运行时错误，以及如何操作合并单元格。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

访问表格行或列时产生错误："无法访问此集合中单独的行，因为表格有纵向合并的单元格。"
如果要访问绘制表格中单独的行或列，而该表格又不统一，则会产生一个运行时错误。例如，如果活动文档中第一张表格的每列中具有不同数量的行，则使用下列指令将导致出错。

Sub RemoveTableBorders()
    ActiveDocument.Tables(1).Rows(1).Borders.Enable = False
End Sub

要避免这种错误，可首先使用 SelectColumn 或 SelectRow 方法选定一列或一行中的单元格。选定单元格后，再使用 Selection 对象的 Cells 属性。下列示例选定第一张文档表格中的第一行。Cells 属性用于访问选定的单元格（第一行中的所有单元格）以删除边框。

Sub RemoveTableBorders()
    ActiveDocument.Tables(1).Cell(1, 1).Select
    With Selection
        .SelectRow
        .Cells.Borders.Enable = False
    End With
End Sub

以下实例删除有合并单元格的行

Sub RemoveTableBorders()
     ActiveDocument.Tables(1).Cell(2, 1).Select
     With Selection
         .SelectRow
         .Cells.Delete
     End With
 End Sub

下列示例选定第一张文档表格的第一列。For Each...Next 循环语句用于在所选内容（第一列中的所有单元格）的每个单元格中添加文字。

Sub AddTextToTableCells()
    Dim intCell As Integer
    Dim oCell As Cell
    ActiveDocument.Tables(1).Cell(1, 1).Select
    Selection.SelectColumn
    intCell = 1
    For Each oCell In Selection.Cells
        oCell.Range.Text = "Cell " & intCell
        intCell = intCell + 1
    Next oCell
End Sub

再如：

Sub Example()
    Dim i As Cell
    For Each i In Me.Tables(1).Range.Cells
        If i.RowIndex = 1 Then MsgBox i.Range.Text    '取得第一行的所有单元格的文本（此处带有段落标记）
    Next
End Sub