Разбиение ячеек, объединенных по вертикали

[Ольга060289]

Доброго времени суток!
В документе Ворд есть таблица такого вида:
1|_2_|5|
..|_3_| |
_|_4_|_|

Необходимо с помощью макроса разбить 1й и 5й столбец на три строки или объединить 2й столбец с помощью макроса. Помогите, пожалуйста, написать код)

[Sciv]

Совет: зайдите в ворде в раздел "Макрос", нажмите "Начать запись" и проведите все нужные операции. Потом нажмите квадратик (остановить запись) и там же, в макросах смотрите свой код в VBA.

У меня получилось вот это:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 26.10.2012 Admin
'
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Cells.Split NumRows:=3, NumColumns:=1, MergeBeforeSplit:=True
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Cells.Split NumRows:=3, NumColumns:=1, MergeBeforeSplit:=True
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend
    Selection.Cells.Merge
End Sub

Делает все, что Вам нужно: разбивает крайние столбцы и объединяет средний

[Ольга060289]

Я знаю, что существут запись макросов))) но мне это не подходит, т.к. таблица постоянно изменяется, да и объединенных ячеек очень много