Как пронумеровать страницы в MSWord?

← →
mao04 (2004-08-26 13:17) [0]

Доброго всем дня.
Пытаюсь пронумеровать страницы в Word, и по следующим вариантам ничего не получается.
Пишу например так:
var
alignment, fp: OleVariant;
.............
// 1)
WordApplication1.Selection.HeaderFooter.PageNumbers.Item(1).Alignment := wdAlignPageNumberCenter;
// 2)
alignment := Word2000.wdAlignPageNumberCenter;
fp:= False;
WordApplication1.Selection.Sections.Item(1).Headers.Item(1).PageNumbers.Add(alignment, fp);
........
Ругается чтото наподобие: (с вариациями адресса)
---------------------------
Debugger Exception Notification
---------------------------
Project prices.exe raised exception class EAccessViolation with message "Access violation at address 005CA923 in module "prices.exe". Read of address 00000000". Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
В макросе пишет так:
// Selection.Sections(1).Headers(1).PageNumbers.Add PageNumberAlignment:= _
// wdAlignPageNumberCenter, FirstPage:=True
Второй день уже роюсь. Подскажите как правильно эту строку написать. В инете чтото не накопал ;(

← →
mao04 (2004-08-26 14:17) [1]

alignment :=wdAlignPageNumberCenter;
WordDocument1.Sections.Item(1).Headers.Item(1).PageNumbers.Add(alignment, EmptyParam);

БОЛЬШОЕ ВСЕМ СПАСИБО!! ;))

Как пронумеровать страницы в MSWord? Найти похожие ветки