Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
Merging Cells
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 |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
Merging Cells
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 :-) |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Merging and re-splitting cells | Tables | |||
Merging of cells within a table | Tables | |||
merging excel cells into word document | Mailmerge | |||
Merging Excel cells that contain numbers using Free 3 of 9 Barcode | Mailmerge | |||
exercise for class create a calendar to use merging cells etc | Tables |