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

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

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

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