[kriv0y]

Подскажите как просмотреть колонтитулы в Word, ну хотя бы верхний, вот только нашёл переход к нижнему колонтитулу

Код:

1	WordApplication1.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageFooter;

Красным подчёркивает wdSeekCurrentPageFooter и сообщает
Undeclared identifier: 'wdSeekCurrentPageFooter'

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12

const   wdSeekMainDocument = $00000000;   wdSeekPrimaryHeader = $00000001;   wdSeekFirstPageHeader = $00000002;   wdSeekEvenPagesHeader = $00000003;   wdSeekPrimaryFooter = $00000004;   wdSeekFirstPageFooter = $00000005;   wdSeekEvenPagesFooter = $00000006;   wdSeekFootnotes = $00000007;   wdSeekEndnotes = $00000008;   wdSeekCurrentPageHeader = $00000009;   wdSeekCurrentPageFooter = $0000000A;

или

Код:

1 2	uses   WordXP,

[kriv0y]

Сообщение от NumLock

или

Код:

Спасибо, действително работает! А вот ты бы не мог подсказать смысл этих констант, особенно их шестнадцатиричное значение. Я так понимаю в них хранится указатель внутри Оле объекта? Я о них целый день думаю и они меня с ума сводят!

[NumLock]

да все просто:

property SeekView: WdSeekView read Get_SeekView write Set_SeekView;
// Constants for enum WdSeekView
type
WdSeekView = TOleEnum;
const
wdSeekMainDocument = $00000000;
wdSeekPrimaryHeader = $00000001;
wdSeekFirstPageHeader = $00000002;
wdSeekEvenPagesHeader = $00000003;
wdSeekPrimaryFooter = $00000004;
wdSeekFirstPageFooter = $00000005;
wdSeekEvenPagesFooter = $00000006;
wdSeekFootnotes = $00000007;
wdSeekEndnotes = $00000008;
wdSeekCurrentPageHeader = $00000009;
wdSeekCurrentPageFooter = $0000000A;

TOleEnum = type LongWord;
Longword 0..4294967295 unsigned 32-bit

[kriv0y]

Сообщение от NumLock

да все просто:

Действительно! Спасибо большое!