merge cells of the first row on all tables using VBA

Dear Experts:

I got a document with hundreds of tables all with the same number of columns.

I would like to merge the cells of the first row on all the tables using VBA.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas
Andreas HermleTeam leaderAsked:
Who is Participating?
Rgonzo1971Connect With a Mentor Commented:

pls try

Sub Macro()

For Each Tbl In ActiveDocument.Tables
End Sub

Open in new window

DrTribosConnect With a Mentor Commented:
I think this will work even if your tables have vertically merged cells, as long as there are no horizontally merged cells in row1.
Sub MergeRow1()
Dim Tbl As Table
Dim rngCl As Range
Dim rngCl1 As Range
Dim rngCl2 As Range

    For Each Tbl In ActiveDocument.Tables
        i = Tbl.Columns.Count
        Set rngCl1 = Tbl.Cell(1, 1).Range
        Set rngCl2 = Tbl.Cell(1, i).Range
        Set rngCl = rngCl1
        rngCl.End = rngCl2.End
    Next Tbl
End Sub

Open in new window

Andreas HermleTeam leaderAuthor Commented:
Dear both,

thank you very much for your professional  help. I really appreciate it.
DrTribos, nice coding, will come in handy some time.

Regards, Andreas
Thank you :-)
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.