Merging Cells

[Michael]

Hi Folks - I have a large table column like this:

Text
Blank
Text
Blank

I need to merge every two rows. So, now I have 100 rows, the end result will
be 50 rows. I know I can do this manually, but I have about 20 tables with
100 rows. Any ideas?

Thanks,

Michael

 

[Cindy M -WordMVP-]

Hi Michael,

have a large table column like this:

Text
Blank
Text
Blank

I need to merge every two rows. So, now I have 100 rows, the end result will
be 50 rows. I know I can do this manually, but I have about 20 tables with
100 rows. Any ideas?

See if a macro like this helps (only tested on a smallish table)

Sub MergeEverySecondCell()
Dim tbl As Word.Table
Dim counter As Long
Dim col As Word.Column
Dim celLower As Word.Cell
Dim celUpper As Word.Cell

Set tbl = ActiveDocument.Tables(1)
counter = 1
Set col = tbl.Columns(1)
Do While counter < col.Cells.Count
Set celLower = col.Cells(counter)
counter = counter + 1
Set celUpper = col.Cells(counter)
celLower.Merge celUpper
Loop
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