[kriv0y]

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

Код:

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

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

[NumLock]

Код:

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

или

Код:

uses
  WordXP,

[kriv0y]

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

или

Код:

uses
  WordXP,

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

[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

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

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