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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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