table insert multiple rows

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Mesafalcon - 13 Jan 2006 11:04 GMT

how can I insert multiple blank rows in an existing table without entering
one by one?

Reply to this Message

Doug Robbins - Word MVP - 13 Jan 2006 13:39 GMT

Use the following macro:

Dim i As Long
For i = 1 To InputBox("Enter the number of rows that you want to insert.",
"Insert Rows", 1)
Selection.Tables(1).Rows.Add BeforeRow:=Selection.Rows(1)
Next i

The rows will be inserted before the row in which the selection is located.

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> how can I insert multiple blank rows in an existing table without entering
> one by one?

Reply to this Message

Tony Jollans - 13 Jan 2006 13:56 GMT

It depends how many you want to insert. If you have, say, five rows selected
and then do Table > Insert > Rows Above (or Below), five rows will be
inserted.

--
Enjoy,
Tony

> how can I insert multiple blank rows in an existing table without entering
> one by one?

Reply to this Message