![]() |
#2
|
||||
|
||||
![]()
Try:
Code:
Sub CellMerge() Application.ScreenUpdating = False Dim Tbl As Table, Rng As Range For Each Tbl In ActiveDocument.Tables With Tbl.Rows(1) If .Cells.Count > 2 Then Set Rng = .Range Rng.Start = .Cells(2).Range.Start Rng.Cells.Merge End If End With Next Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Tags |
merge, skip columns, table |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Snaybot | Word | 1 | 09-28-2015 11:27 PM |
![]() |
ravenns | Word | 3 | 07-11-2013 11:29 PM |
How to merge two columns & replace contents of cells conditionally? | mag | Excel | 3 | 10-24-2012 01:07 PM |