Гость
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Обеъдинение соседних ячеек через OLE 'Word.Application' / 3 сообщений из 3, страница 1 из 1
15.08.2011, 11:11
    #37395342
Сергей888
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обеъдинение соседних ячеек через OLE 'Word.Application'
В Вордовом документе есть некая таблица. Как объединить соседние ячейки нескольких строк, имеющих одинаковые значения? Все ячейки одного столбца объединять не надо, требуется лишь две(или n) смежные. Опробовал множество вариантов. Объединение всех ячеек строки или столбца работает просто и исправно, но как выделить диапазон из двух смежных ячеек в .Select, чтобы потом провести .Selection.Mergse, просто не хватает фантазии. Помогите...
...
Рейтинг: 0 / 0
15.08.2011, 12:48
    #37395610
yaCooler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обеъдинение соседних ячеек через OLE 'Word.Application'
Макросы -> Запись. Объединяете все, что надо. Открываете код макроса. Profit.
...
Рейтинг: 0 / 0
15.08.2011, 13:36
    #37395752
Сергей888
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обеъдинение соседних ячеек через OLE 'Word.Application'
Макрос возвращает только последнюю операцию с 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)) (весь паровоз, естественно, одной строкой)

и ЭТО РАБОТАЕТ!
Спешу опубликовать викторию на форуме, чтобы оные отроки не тратили на поиски недели
...
Рейтинг: 0 / 0
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Обеъдинение соседних ячеек через OLE 'Word.Application' / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]