Merge Table Rows

npalmer610 · #1 02-24-2016, 01:14 PM

Hello. I have a similar problem to https://www.msofficeforums.com/word-...row-table.html. However, I do not need to merge specific rows. I am hoping, as this thread suggested, to merge each cell, row by row, regardless of how many columns, or how many tables. The current macro posted—which was very helpful—only merges a single table with those specific parameters. What I am hoping for is a similar macro that will loop through the entire document and any time it finds a table with multiple columns, it will combine it to a single column, while keeping each row intact. Thank you for your help in advance!

macropod · #2 02-24-2016, 01:42 PM

Try:

Code:

Sub MergeAllTableRows()
Dim Tbl As Table, TblRw As Row
For Each Tbl In ActiveDocument.Tables
  For Each TblRw In Tbl.Rows
    TblRw.Range.Cells.Merge
  Next
Next
End Sub

PS: Please don't resurrect old threads. I've split your post off to a new one, with a link back to the old one.

npalmer610 · #3 02-24-2016, 04:44 PM

Quote:

Originally Posted by macropod

Try:

Code:

Sub MergeAllTableRows()
Dim Tbl As Table, TblRw As Row
For Each Tbl In ActiveDocument.Tables
  For Each TblRw In Tbl.Rows
    TblRw.Range.Cells.Merge
  Next
Next
End Sub

PS: Please don't resurrect old threads. I've split your post off to a new one, with a link back to the old one.

Sorry and many thanks!!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mail Merge to create specific number of table rows	flackend	Mail Merge	4	12-01-2023 02:49 PM
Mail merge at large table with variable number of rows	blar	Mail Merge	1	10-19-2015 03:04 PM
Mail merge into table with two colums and several rows	kathriiin	Mail Merge	3	03-30-2015 07:06 AM
Is it possible to copy non-contiguous rows of a Table and paste them as a separate Table in Word?	Joey Cheung	Word Tables	1	08-12-2014 05:15 PM
Grouping table rows to prevent individual rows from breaking across pages	dennist77	Word	1	10-29-2013 11:39 PM