table insert multiple rows

[Mesafalcon]

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

 

[Doug Robbins - Word MVP]

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.

--
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

 

[Tony Jollans]

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.