Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Нумеровка страниц

Автор: DYUMON 27.2.2007, 21:10

Мне в программе для отчёта нужно страницы пронумеровать.
Я делал

Код


var
 numstr: OleVariant;//peremennaa nomer str
 numf: OleVariant;
begin
numstr:= wdAlignPageNumberCenter;
numf:= wdHeaderFooterFirstPage;
wordapplication1.Selection.HeaderFooter.PageNumbers.Add(numstr,numf );
end;

прога падает. smile

Автор: Remember 27.2.2007, 22:00

Сделай макрос с необходимыми тебе действиями.. потом просмотри на текст макроса..и переведи это всё на Delphi..

Также можно узнать как многое другое делается

Автор: Albinos_x 28.2.2007, 11:34

Код

...
 var PageNumberAlignment,FirstPage:olevariant;
...
PageNumberAlignment:=wdAlignPageNumberRight;
FirstPage:=True;
WordApplication1.Selection.Sections.Item(1).Headers.Item(1).PageNumbers.Add(PageNumberAlignment,FirstPage);
...