Microsoft Office Forums - View Single Post - [Solved] Any "InsertRowsBelow" in Tables Object?

tinfanide · 06-10-2012, 08:57 PM

Code:

Sub t()

With ActiveDocument
    With .Tables(1)
        .Rows(.Rows.Last.Index).Select
        With Selection
            .InsertRowsBelow 1
        End With
        .Rows(.Rows.Last.Index).Range.Text = "newly added last row in this table"
    End With
End With

End Sub

There is

Code:

ActiveDocument.Tables(1).Rows.Add [BeforeRow As Row]

in the Tables Object. But just wonder if I can insert rows after a row.