How to insert multiple rows in tables

Hi all, does anyone know how to insert a few rows at once in a table? The
options I currently have in the table menu "insert" is only one row at a
time. Lets say I need to add 20 rows at once, how do I do this? Please
help. Thanks

It's unfortunate that Word doesn't have a dialog that allows you to specify
the number of rows to add in the same way that you can specify how many rows
you want when you initially create a table, but there are ways to streamline
the process.

The first thing you need to know is that when you choose Insert Rows, Word
will add the number of rows you have selected. So if you select two rows, it
will add two rows. You can use this to your advantage even if you start by
adding a single row. Select a row, right-click, choose Insert Rows. Then
select the new row along with the one you originally selected and press F4
(repeat). This will give you two new rows. Add those to the selection (four
rows selected) and press F4 again. Select the eight rows and F4. And so on.

If your table is a very simple one (you haven't changed the default width of
the columns or done anything fancy with borders), there is an even quicker
way. Using Table | Insert | Table or the Insert Table toolbar button, create
a new table with the desired number of rows below your existing table, then
delete the empty paragraph between them to join the tables. If the
additional rows need to go in the middle of the table, you can (with some
trial and error) drag or copy/paste them there.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Josh W" Josh wrote in message
...
Hi all, does anyone know how to insert a few rows at once in a table? The
options I currently have in the table menu "insert" is only one row at a
time. Lets say I need to add 20 rows at once, how do I do this? Please
help. Thanks

Hi =?Utf-8?B?Sm9zaCBX?=,

does anyone know how to insert a few rows at once in a table? The
options I currently have in the table menu "insert" is only one row at a
time. Lets say I need to add 20 rows at once, how do I do this?

Word will insert as many rows as you have selected when you use the Insert
command. So you can select 20 rows, then use Insert Rows and Word will
insert another 20.

There's no way to specify n number of rows except when initially creating
the table. Although it would certainly be possible to speed things up a bit
using a macro. For example:

Sub Insert_n_Rows()
Dim tbl As Word.Table
Dim doc As Word.Document
Dim strRows As String
Dim nrRows As Long
Dim counter As Long

On Error GoTo ErrHandler
If Selection.Range.Information(wdWithInTable) Then
Set tbl = Selection.Tables(1)
strRows = InputBox("Enter number of rows to insert")
If IsNumeric(strRows) Then nrRows = CLng(strRows)
For counter = 1 To nrRows
tbl.Rows.Add (Selection.Rows(1))
Next
End If

Exit Sub

ErrHandler:
Select Case Err.Number
Case Else
MsgBox Err.Description & vbCr & Err.Number
End Select
End Sub


Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

Thanks, Suzanne. Cant believe the speedy reply. Very helpful tips.

"Suzanne S. Barnhill" wrote:

It's unfortunate that Word doesn't have a dialog that allows you to specify
the number of rows to add in the same way that you can specify how many rows
you want when you initially create a table, but there are ways to streamline
the process.

The first thing you need to know is that when you choose Insert Rows, Word
will add the number of rows you have selected. So if you select two rows, it
will add two rows. You can use this to your advantage even if you start by
adding a single row. Select a row, right-click, choose Insert Rows. Then
select the new row along with the one you originally selected and press F4
(repeat). This will give you two new rows. Add those to the selection (four
rows selected) and press F4 again. Select the eight rows and F4. And so on.

If your table is a very simple one (you haven't changed the default width of
the columns or done anything fancy with borders), there is an even quicker
way. Using Table | Insert | Table or the Insert Table toolbar button, create
a new table with the desired number of rows below your existing table, then
delete the empty paragraph between them to join the tables. If the
additional rows need to go in the middle of the table, you can (with some
trial and error) drag or copy/paste them there.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Josh W" Josh wrote in message
...
Hi all, does anyone know how to insert a few rows at once in a table? The
options I currently have in the table menu "insert" is only one row at a
time. Lets say I need to add 20 rows at once, how do I do this? Please
help. Thanks

Thanks Cindy.

"Cindy M -WordMVP-" wrote:

Hi =?Utf-8?B?Sm9zaCBX?=,

does anyone know how to insert a few rows at once in a table? The
options I currently have in the table menu "insert" is only one row at a
time. Lets say I need to add 20 rows at once, how do I do this?

Word will insert as many rows as you have selected when you use the Insert
command. So you can select 20 rows, then use Insert Rows and Word will
insert another 20.

There's no way to specify n number of rows except when initially creating
the table. Although it would certainly be possible to speed things up a bit
using a macro. For example:

Sub Insert_n_Rows()
Dim tbl As Word.Table
Dim doc As Word.Document
Dim strRows As String
Dim nrRows As Long
Dim counter As Long

On Error GoTo ErrHandler
If Selection.Range.Information(wdWithInTable) Then
Set tbl = Selection.Tables(1)
strRows = InputBox("Enter number of rows to insert")
If IsNumeric(strRows) Then nrRows = CLng(strRows)
For counter = 1 To nrRows
tbl.Rows.Add (Selection.Rows(1))
Next
End If

Exit Sub

ErrHandler:
Select Case Err.Number
Case Else
MsgBox Err.Description & vbCr & Err.Number
End Select
End Sub


Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

Go to the first paragraph mark outside the bottom of the table - and press
keys CTRL SHIFT I.
It should bring up an INSERT NUMBER OF ROWS box: Type in 20 or 40 or
whatever.

The keystrokes are Word Defaults and it only works at this point at first
empty paragraph mark after the last row in table.

Regards
Janine
www.docsonline.net.au
"Josh W" Josh wrote in message
...
Hi all, does anyone know how to insert a few rows at once in a table? The
options I currently have in the table menu "insert" is only one row at a
time. Lets say I need to add 20 rows at once, how do I do this? Please
help. Thanks

Hi Fred, thanks for your reply. unfortunately it does not work. CTRL SHIFT
I gets the underline.

"Fred" wrote:

Go to the first paragraph mark outside the bottom of the table - and press
keys CTRL SHIFT I.
It should bring up an INSERT NUMBER OF ROWS box: Type in 20 or 40 or
whatever.

The keystrokes are Word Defaults and it only works at this point at first
empty paragraph mark after the last row in table.

Regards
Janine
www.docsonline.net.au
"Josh W" Josh wrote in message
...
Hi all, does anyone know how to insert a few rows at once in a table? The
options I currently have in the table menu "insert" is only one row at a
time. Lets say I need to add 20 rows at once, how do I do this? Please
help. Thanks

CTRL SHIFT I as in I for Indigo. CTRL SHIFT U would give you underlining?
CTRL SHIFT I is a Word 2003 default instruction, I remap keys and I have it
available.

"Josh W" wrote in message
...
Hi Fred, thanks for your reply. unfortunately it does not work. CTRL
SHIFT
I gets the underline.

"Fred" wrote:

Go to the first paragraph mark outside the bottom of the table - and
press
keys CTRL SHIFT I.
It should bring up an INSERT NUMBER OF ROWS box: Type in 20 or 40 or
whatever.

The keystrokes are Word Defaults and it only works at this point at first
empty paragraph mark after the last row in table.

Regards
Janine
www.docsonline.net.au
"Josh W" Josh wrote in message
...
Hi all, does anyone know how to insert a few rows at once in a table?
The
options I currently have in the table menu "insert" is only one row at
a
time. Lets say I need to add 20 rows at once, how do I do this?
Please
help. Thanks

CTRL SHIFT I as in I for indigo invokes Italics in Word - how have you
remapped your keys?

"Fred" wrote:

CTRL SHIFT I as in I for Indigo. CTRL SHIFT U would give you underlining?
CTRL SHIFT I is a Word 2003 default instruction, I remap keys and I have it
available.

"Josh W" wrote in message
...
Hi Fred, thanks for your reply. unfortunately it does not work. CTRL
SHIFT
I gets the underline.

"Fred" wrote:

Go to the first paragraph mark outside the bottom of the table - and
press
keys CTRL SHIFT I.
It should bring up an INSERT NUMBER OF ROWS box: Type in 20 or 40 or
whatever.

The keystrokes are Word Defaults and it only works at this point at first
empty paragraph mark after the last row in table.

Regards
Janine
www.docsonline.net.au
"Josh W" Josh wrote in message
...
Hi all, does anyone know how to insert a few rows at once in a table?
The
options I currently have in the table menu "insert" is only one row at
a
time. Lets say I need to add 20 rows at once, how do I do this?
Please
help. Thanks

Hi =?Utf-8?B?UlBK?=,

CTRL SHIFT I as in I for indigo invokes Italics in Word

Not in the English version, although it does in the German
one...

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update
Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any
follow question or reply in the newsgroup and not by e-mail
:-)