Объединение ячеек с невидимыми границами

[Aalex]

Всем привет.

В Word есть таблица у которой некоторы границы между ячейками невидимы и их соответственно надо объединить.
Я собираюсь это делать следующим образом.
Пробежаться в цикле по всем ячейкам ипроверить их 4 границы на видимость:
If ActiveDocument.Tables(k).Cell(i, j).Borders(wdBorderBottom).Visible = False Then
//
End If
Если они невидимы то соответственно объеденить с ячейкой справа/слева/свверху/снизу.

Может это можно сделать как то легче?))) Так как при каждом объеденении число ячеек уменьшается и надо либо начинать цикл заново либо вообще его гнать с конца чтоб не было выхода за пределы диапозона ячеек.

Что нибудь типа команды объединить все невидимые в таблице))))