Объединить ячейки в нескольких таблицах - PullRequest
0 голосов
/ 03 февраля 2020

Я новичок в этом, но я пытаюсь объединить 3 ячейки во второй строке в нескольких таблицах в текстовом документе, но я всегда получаю одну и ту же ошибку: 5941 Запрошенный член коллекции не может Может кто-то помогите разобраться в чем проблема?

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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...