Как объединить ячейки таблицы в Word, обращаясь к ним по свойству Cell (n, m)

ActiveDocument.Tables(1).Cell(3,7) и ActiveDocument.Tables(1).Cell(4,7)

ActiveDocument.Tables(1).Cell(3,7) и ActiveDocument.Tables(1).Cell(3,8)

Sub Макрос8()
' Макрос8 Макрос
' Макрос записан 04.04.2011 Александр
ActiveDocument.Tables(1).Cell(3, 7).Select
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cells.Merge
 
ActiveDocument.Tables(1).Cell(5, 7).Select
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Cells.Merge
End Sub

Sub P1()
ActiveDocument.Tables(1).Cell(1, 1).Merge _
    MergeTo:=ActiveDocument.Tables(1).Cell(1, 2)
End Sub

Sub P2()
With ActiveDocument.Tables(1)
    .Cell(1, 1).Merge MergeTo:=.Cell(1, 2)
End With
End Sub

Dim myWord As Object
Set myWord = CreateObject("Word.Application") 'Запускаем новый экземпляр программы Word.
    ' Даём этому экземпляру имя "myWord". Через это имя
    ' будем обращаться к программе Word.
myWord.Visible = True 'Делаем программу "Word" видимой.
Set oDocument = myWord.Documents.Add 'Создаем в программе Word документ и присваиваем этому документу указатель "oDocument".
Set tbl = myWord.Selection.Tables.Add(myWord.Selection.Range, 45, 17) ' создаем таблицу 47 строк/5 столбцов
' форматируем таблицу
tbl.Select
...
rs = tbl.Cell(1, 1).Range.Start ' устанавливаем стартовую ячейку
re = tbl.Cell(2, 17).Range.End ' устанавливаем финишную ячейку
oDocument.Range(rs, re).Select ' собственно выделяем ячейки от старта до финиша
...
myWord.Selection.Cells.Merge ' или любая другая команда с выделенным диапазоном ячеек