I have a Word doc with tables of various column counts.


I am working on a macro that loops through every table's row 1 and merges cells in column 2 and 3, 3 and 4, 4 and 5, etc. That part works fine.
My problem comes with tables that don't have that many columns. I tried adding in an if statement along the lines of if there are more than X columns, continue, but get an error that an object is required when it gets to this line: If Tbl.Columns.Count > 3 Then

I'm trying to learn VBA but am not sure what the problem is. Thanks!

Sub MergeCells2()

For Each Tbl In ActiveDocument.Tables
Tbl.Cell(1, 2).Merge (Tbl.Cell(1, 3))
Next

If Tbl.Columns.Count > 3 Then
For Each Tbl In ActiveDocument.Tables
Tbl.Cell(1, 3).Merge (Tbl.Cell(1, 4))
Next
End If

If Tbl.Columns.Count > 4 Then
For Each Tbl In ActiveDocument.Tables
Tbl.Cell(1, 4).Merge (Tbl.Cell(1, 5))
Next
End If

If Tbl.Columns.Count > 5 Then
For Each Tbl In ActiveDocument.Tables
Tbl.Cell(1, 5).Merge (Tbl.Cell(1, 6))
Next
End If

If Tbl.Columns.Count > 6 Then
For Each Tbl In ActiveDocument.Tables
Tbl.Cell(1, 6).Merge (Tbl.Cell(1, 7))
Next
End If

If Tbl.Columns.Count > 7 Then
For Each Tbl In ActiveDocument.Tables
Tbl.Cell(1, 7).Merge (Tbl.Cell(1, 8))
Next
End If

If Tbl.Columns.Count > 8 Then
For Each Tbl In ActiveDocument.Tables
Tbl.Cell(1, 8).Merge (Tbl.Cell(1, 9))
Next
End If

End Sub

Try:

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you. I was looking to join two columns at a time, not every column into one cell, but added one line and it worked. Then repeated the set, just changing the cell numbers I wanted to merge. Thanks!

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.End = .Cells(3).Range.End
Rng.Cells.Merge
End If
End With
Next

Slightly simpler is:
PS: When posting code, please use the code tags, indicated by the # button on the posting menu

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks! I appreciate your help!