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

← →
Александр_2012 (2014-10-03 12:45) [0]

Доброго дня.
Выгружаю в таблицу 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

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

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

← →
junglecat © (2014-10-03 13:05) [1]

WordApplication1.Selection.Rows.HeadingFormat:= -1

← →
Александр_2012 (2014-10-03 13:08) [2]

Немного не понял почему -1, но спасибо, работает.

← →
junglecat © (2014-10-03 13:11) [3]

в COM булевскому true соответствует -1 или $FFFF

← →
Александр_2012 (2014-10-03 13:14) [4]

Спасибо. Постараюсь запомнить.
Возник ещё один вопрос. Как снять выделение строки. Конечно щелчок мышки по любому месту (кроме выделенного) приводит к снятию выделения, но хотелось бы снять его программно.

← →
junglecat © (2014-10-03 13:23) [5]

.Selection.Collapse наверно

← →
Александр_2012 (2014-10-03 13:40) [6]

Не работает. Но вот так получилось, хотя, может быть и не совсем корректно.

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

С начало надо выделить потом уже поставить флаг…

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

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

Word. Таблица, сквозные строки. Найти похожие ветки