Error Accessing a Table Row or Column

When you try to access an individual row or column in a drawn table, a run-time error may occur if the table is not uniform. For example, the following instruction posts an error if the first table in the active document does not have the same number of rows in each column.

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

You can avoid this error by first selecting the cells in a column or row using the SelectColumn method or the SelectRow method. After the selection is made, use the Cells property with the Selection object. The following example selects the first row in the first document table. The Cells property is used to access the selected cells (all the cells in the first row) so that borders can be removed.

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

The following example selects the first column in the first document table. The For Each...Next loop is used to add text to each cell in the selection (all the cells in the first column).

  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