Есть таблица в ворде с объединенными ячейками. как их найти программно и разбить до кол-ва соседних?

LeCrunch,

Спасибо за заметку, но проблемы она не решает.
Заметил вот такую вещь.
Если я пытаюсь просто из ворда разбить слитую ячейку то при вертикальной разбивке ворд не даёт возможности ввести больше строк чем в соседних ячейках. При попытке программного разбиения на большее кол-во строк выдаёт ошибку. Похоже, что этим как то можно воспользоваться, но как не знаю?

Сделал вот такую штуку - вроде работает:

Sub SplitCellInTable()
Dim vStr As Integer
Dim nStr As Integer


ActiveDocument.Tables(1).Cell(1, 1).Select
'
Do While Selection.Information(wdWithInTable)
vStr = Selection.Cells(1).RowIndex
Selection.MoveDown Unit:=wdLine, Count:=1
If Selection.Information(wdWithInTable) Then
Selection.SelectCell
nStr = Selection.Cells(1).RowIndex
If nStr - vStr > 1 Then
ActiveDocument.Tables(1).Cell(vStr, 1).Split NumRows:=nStr - vStr
End If
End If

Loop
nStr = ActiveDocument.Tables(1).Rows.Count + 1
ActiveDocument.Tables(1).Cell(vStr, 1).Split NumRows:=nStr - vStr
End Sub

Это для вертикально собранных ячеек
Наверно можно переделать и для горизонтальных. сам не пробовал.