Как пронумеровать страницы в MSWord? [D6, Win2k, WinXP]
mao04 © (2004-08-26 13:17:00)
Доброго всем дня.
Пытаюсь пронумеровать страницы в 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:00) [1]
alignment :=wdAlignPageNumberCenter;
WordDocument1.Sections.Item(1).Headers.Item(1).PageNumbers.Add(alignment,
EmptyParam);
БОЛЬШОЕ ВСЕМ СПАСИБО!! ;))
Наверх 
ЧАТ |
Орешник |
|
