Merging cells in column

[Guest]

Hello folks,

Can someone kindly help with vba code to do the following:

In a document with multiple tables, go through each column in each table
and,
Select the column
Merge all cells in that column.

Sergey

 

[Doug Robbins - Word MVP]

Use

Dim i As Long, j As Long
With ActiveDocument
For i = 1 To .Tables.Count
With .Tables(i)
For j = 1 To .Columns.Count
.Columns(j).Cells.Merge
Next j
End With
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[Guest]

It works.

Thank you.

Use

Dim i As Long, j As Long
With ActiveDocument
For i = 1 To .Tables.Count
With .Tables(i)
For j = 1 To .Columns.Count
.Columns(j).Cells.Merge
Next j
End With
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com