[hexagonhouse]

I have 3000 pictures (Fallen in Iraq) in column 1 with the names in column 2.
Need names under pictures for peace memoral. Other than 3000 cut and paste?
--
none

[Doug Robbins - Word MVP]

Use a macro containing the following code:

Dim i As Long
Dim dname As Range
Dim dtable As Table
Set dtable = ActiveDocument.Tables(1)
For i = dtable.Rows.Count To 1 Step -1
Set dname = dtable.Cell(i, 2).Range
dname.End = dname.End - 1
dtable.Rows(i).Select
Selection.InsertRowsBelow 1
dtable.Cell(i + 1, 1).Range.Text = dname.Text
Next i
dtable.Columns(2).Delete

Make sure that you have saved a copy of the document before you run the code
just in case.

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

"hexagonhouse" wrote in message
...
I have 3000 pictures (Fallen in Iraq) in column 1 with the names in column
2.
Need names under pictures for peace memoral. Other than 3000 cut and
paste?
--
none

[Suzanne S. Barnhill]

Table | Convert | Table to Text, separating with commas. Then Table |
Convert | Text to Table, creating a one-column table by separating at
paragraph marks. Then use Find and Replace to replace comma+space with a
line break (^l) or paragraph break (^p) as desired.

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

"hexagonhouse" wrote in message
...
I have 3000 pictures (Fallen in Iraq) in column 1 with the names in column
2.
Need names under pictures for peace memoral. Other than 3000 cut and
paste?
--
none