powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не вставить поле в ячейку таблицы
3 сообщений из 3, страница 1 из 1
Не вставить поле в ячейку таблицы
    #33038498
BPK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Управляю MSWord'ом из программы на Delphi 6.
В нижний колонтитул документа вставляю таблицу, а потом пытаюсь вставить поле в одну из её ячеек. Не получается. Word говорит, что: "Данная команда недоступна".
Кусок кода:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Ty:=wdFieldEmpty;
Txt:='PAGE  ';
PF:=True;
Doc.Activate;
Doc.ActiveWindow.ActivePane.View.Type_:=wdPrintView;
App.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageFooter;
Tbl.Cell( 5 , 9 ).Select;
App.Selection.Fields.Add(App.Selection.Range, Ty, Txt, PF);

Doc это ActiveDocument, а App - приложение MSWord
Если не выделять ячейку: Tbl.Cell(5,9).Select; , то вставка работает.
...
Рейтинг: 0 / 0
Не вставить поле в ячейку таблицы
    #33038500
BPK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, и если не пытаться вставить поле, то ячейка выделяется.
Работа напрямую с Cell(x,y).Fields не удаётся
...
Рейтинг: 0 / 0
Не вставить поле в ячейку таблицы
    #33038516
BPK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помогло:
Код: plaintext
1.
CD:=wdCollapseStart;
App.Selection.Collapse(CD);

Хм, как-то по-уродски получается. Неужели нельзя напрямую указать ячейку, без Selection?
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не вставить поле в ячейку таблицы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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