Hi Michael,
[Quoted Text] > 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 :-)
|