Объединение ячеек в Word

Изучение вот этого простого кода

Sub test()
Dim oneTable As Table
Dim oneCell As Cell
Dim i As Integer
Set oneTable = ThisDocument.Tables(1)
For Each oneCell In oneTable.Range.Cells
    i = i + 1
    Debug.Print i, oneCell.RowIndex, oneCell.ColumnIndex
Next
End Sub

на тестовых табличках с объединением ячеек даст достаточно информации для решения проблемы.