|
|
#2
05-25-2016, 03:35 PM
|
||||
|
||||
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 Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 How do I skip automatic Numbering on merged cells in my table?
|
Snaybot | Word | 1 | 09-28-2015 11:27 PM |
|
Column text flow with table across the columns
|
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 |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode