Скачать: CL | DM;

Как пронумеровать страницы в 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);

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c