Использую TWordDocument. Как заполнить колонтитулы?

← →
Nobody2002 (2004-01-15 12:59) [0]

Использую TWordDocument. Как внести какую-либо строку в колонтитулы?

← →
Dimman1 © (2004-01-15 13:27) [1]

Тебе короче надо вот эту фигню на дельфи перетянуть (это типа листинг макроса на VB, колонтитул сделать). Надеюсь разберешься.

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.TypeText Text:="blablabla"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Удачи.

← →
Nobody2002 (2004-01-15 14:16) [2]

Спасибо, попробую

Использую TWordDocument. Как заполнить колонтитулы? Найти похожие ветки