|
Обеъдинение соседних ячеек через OLE 'Word.Application'
|
|||
---|---|---|---|
#18+
В Вордовом документе есть некая таблица. Как объединить соседние ячейки нескольких строк, имеющих одинаковые значения? Все ячейки одного столбца объединять не надо, требуется лишь две(или n) смежные. Опробовал множество вариантов. Объединение всех ячеек строки или столбца работает просто и исправно, но как выделить диапазон из двух смежных ячеек в .Select, чтобы потом провести .Selection.Mergse, просто не хватает фантазии. Помогите... ... |
|||
:
Нравится:
Не нравится:
|
|||
15.08.2011, 11:11 |
|
Обеъдинение соседних ячеек через OLE 'Word.Application'
|
|||
---|---|---|---|
#18+
Макросы -> Запись. Объединяете все, что надо. Открываете код макроса. Profit. ... |
|||
:
Нравится:
Не нравится:
|
|||
15.08.2011, 12:48 |
|
Обеъдинение соседних ячеек через OLE 'Word.Application'
|
|||
---|---|---|---|
#18+
Макрос возвращает только последнюю операцию с Merge, выделения мышкой в нем не отображаются, что явно не устраивает. Пошёл по форумам и нашёл на: http://forum.mista.ru/topic.php?id=475426 подсказку: Set Док = ThisDocument Set Таблицы = Док.Tables Set Таблица = Таблицы.Item(1) Set Ячейка = Таблица.Cell(1, 1) Call Ячейка.Merge(Таблица.Cell(1, 2)) Переложил её на PowerBuilder, в итоге получил: myoleobject.ActiveDocument.Tables[1].Cell(Первая_строка, 1).Merge(myoleobject.ActiveDocument.Tables[1].Cell(Последняя_строка, 1)) (весь паровоз, естественно, одной строкой) и ЭТО РАБОТАЕТ! Спешу опубликовать викторию на форуме, чтобы оные отроки не тратили на поиски недели ... |
|||
:
Нравится:
Не нравится:
|
|||
15.08.2011, 13:36 |
|
|
start [/forum/topic.php?fid=15&fpage=18&tid=1335661]: |
0ms |
get settings: |
11ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
35ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
48ms |
get tp. blocked users: |
2ms |
others: | 14ms |
total: | 149ms |
0 / 0 |