Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Word. Таблица, сквозные строки.

Александр_2012 © (2014-10-03 12:45:00)
Доброго дня.
Выгружаю в таблицу Word данные из БД. Таблица получается большой. Хотелось бы, чтобы шапка таблицы печаталась на каждом новом листе.
Сначала попытался выделить первую строку таблицы

WordApplication1.ActiveDocument.Tables.Item(1).Rows.Item(1).Select;

Затем в Word создал макрос и посмотрел что получилось

Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
'
'
Selection.Rows.HeadingFormat = True
End Sub

Попытался сделать тоже самое в Delphi

WordApplication1.Selection.Rows.HeadingFormat:= ???

Delphi определяет тип данного параметра как integer и true поставить невозможно. Попытка подставить

WordApplication1.Selection.Rows.HeadingFormat:= 1

приводит к ошибке.

Подскажите как правильно реализовать сквозные строки.

juvoi (2016-02-19 15:43:00) [1]
С начало надо выделить потом уже поставить флаг…

MSWord.ActiveDocument.Tables.Item(1).Tables.Item(1). Rows.Item(1).Select;
MSWord.Selection.Rows.HeadingFormat:= true;

При этом у меня этот влаг наследовался, и в созданной следующей строке передавался этот флаг.
Я этот флаг ставил после создание заголовка + 1 строка, сработала.

Александр_2012 (2014-10-03 13:40:00) [2]
Не работает. Но вот так получилось, хотя, может быть и не совсем корректно.

Unit_:=wdSection;
Count:=1;
WordApplication1.Selection.Move(Unit_,Count);

junglecat (2014-10-03 13:23:00) [3]
.Selection.Collapse наверно

Александр_2012 (2014-10-03 13:14:00) [4]
Спасибо. Постараюсь запомнить.
Возник ещё один вопрос. Как снять выделение строки. Конечно щелчок мышки по любому месту (кроме выделенного) приводит к снятию выделения, но хотелось бы снять его программно.

junglecat (2014-10-03 13:11:00) [5]
в COM булевскому true соответствует -1 или $FFFF

Александр_2012 (2014-10-03 13:08:00) [6]
Немного не понял почему -1, но спасибо, работает.

junglecat (2014-10-03 13:05:00) [7]
WordApplication1.Selection.Rows.HeadingFormat:= -1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »