How to insert multiple rows in tables

J

Josh W

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
 
S

Suzanne S. Barnhill

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

Cindy M -WordMVP-

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?
Click to expand...
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 :)
 
J

Josh W

Thanks Cindy.

Cindy M -WordMVP- said:
Hi =?Utf-8?B?Sm9zaCBX?=,

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)


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

Fred

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
 
J

Josh W

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

Fred

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

RPJ

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Repeating a row other than the 1st row as the header row in a table from next page 1
Excel --> Word 4
Dealing with a Pivot Table (when I don't want to) 0
How to shift cells up/down 0
Insert multiple objects at once ? 3
Adding a big matrix in Word 2013 5
Insert Index into a Table 1
Insert Multiple Fields without Dialog closing between each... 0

Top