Any "InsertRowsBelow" in Tables Object?

tinfanide · #1 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.

macropod · #2 06-11-2012, 04:29 AM

Hi tinfanide,

There is no equivalent to '.InsertRowsBelow' for the table object. However, you probably don't need it. To add a new last row, simply use:
ActiveDocument.Tables(1).Rows.Add
To insert a row after a specific row, use something like:
ActiveDocument.Tables(1).Rows(2).Range.Rows.Add

tinfanide · #3 06-11-2012, 04:41 AM

A lovely one.
Never thought it was just simple as that.
Thank you.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wierd symbols inplace of "space", "indentation" etc	aka.bhagvanji	Word	5	02-16-2012 11:50 AM
How to edit the "Format" and the "show level" of an EXISTING table of content?	Jamal NUMAN	Word	2	08-14-2011 10:46 AM
"Table of content" based on "Normal Style" behavior!!!!	Jamal NUMAN	Word	4	07-08-2011 04:12 AM
How to choose a "List" for certain "Heading" from "Modify" tool?	Jamal NUMAN	Word	2	07-03-2011 03:11 AM
"Microsoft Excel Application" missing in the "Component Services" on win08	sword.fish	Excel	0	02-26-2010 02:09 PM