Vba 在多个表中合并单元格

我在这方面是新手，但我试图在word文档的多个表中合并第二行的3个单元格，但我总是收到相同的错误：5941请求的集合meber不存在 有人能帮我看看问题出在哪里吗

Sub add_tabl_rows()

 Dim tbl As Word.Table
    For Each tbl In ActiveDocument.Tables
    tbl.AutoFitBehavior wdAutoFitContent

    tbl.Rows.Add BeforeRow:=tbl.Rows(2)

Dim cel1, cel2 As Word.Cell
     Set cel1 = tbl.Cell(2, 1)
     Set cel2 = tbl.Cell(2, 3)

    cel1.Merge MergeTo:=cel2

    Next

End Sub

---

您确定每个表都有这些维度吗？是否每个表都有两行？如果表中的列少于三列，则代码将不起作用，并给出您描述的错误。你有多少列？我有40个表，但其中2个有2列。这就是问题所在。谢谢