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


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