Номера страниц представляют собой элементы коллекции PageNumbers.
Сама коллекция PageNumbers является свойством элемента коллекции
Headers, представляющего собой верхний колонтитул страницы, или эле-
мента коллекции Footers (нижний колонтитул страницы). Если документ
имеет более одного раздела, то нумерацию можно создать отдельно для
каждого раздела. При создании нумерации страниц можно выбрать вариант
пространственного размещения номера страницы и порядок нумерации
первой страницы.
Новая нумерация страниц создается с помощью метода Add(PageNumberAlignment:
integer, FirstPage:Boolean) коллекции PageNumbers. Первый ар-
гумент этого метода определяет выравнивание номера страницы по гори-
зонтали, второй аргумент — наличие номера на первой странице документа
(True) или его отсутствие (False).
Для создания нумерации страниц в верхнем колонтитуле используем сле-
дующую процедуру.
Размещение номеров страниц в верхнем колонтитуле
procedure TForml.Button3Click(Sender: TObject);
var mySection:variant;
myPageNumber:variant;
myPageNumbers:variant;
begin
mySection:=W.ActiveDocument.Range.Sections.item(1);
MyPageNumbers:=mySection.Headers.item(1).PageNumbers;
MyPageNumber:=mySection.Headers.item(1).PageNumbers.
Add(PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=True)
end;
Для создания нумерации в нижнем колонтитуле страницы используем эле-
мент коллекции Footers и его свойство — PageNumbers.
Размещение номеров страниц в нижнем колонтитуле
procedure TForml.Button4Click(Sender: TObject);
var mySection:variant;
begin
mySection:=W.ActiveDocument.Range.Sections.item (1);
MyPageNumbers:=mySection.Footers.item(l).PageNumbers;
MyPageNuraber:=mySection.Footers.item(l).PageNumbers.Add
(PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=True);
end;
В представленных процедурах ссылка mySection указывает на первый раздел
документа, для которого будет создана нумерация (документ не может иметь
меньше одного раздела). Второй оператор предоставляет доступ к коллек-
ции PageNumbers, средствами которой мы создаем новую нумерацию (тре-
тий оператор).
Рис. П2.4. Изменяем стиль и горизонтальное выравнивание номеров страниц
Стиль созданной нумерации страницы можно изменить. Для этого восполь-
зуемся объектами, ссылки на которые были получены во время ее создания.
С их помощью изменим горизонтальное выравнивание номеров страниц и
их стиль.
Задание горизонтального выравнивания и стиля номеров страниц
procedure TForml.AlignmentChange(Sender: TObject);
begin
MyPageNumber.Alignment:=Alignment.Itemlndex;
end;
procedure TForml.PageNumberStyleChange(Sender: TObj ect);
begin
MyPageNumbers.NumberStyle:=PageNumberStyle.Itemlndex;
end;
На рис. П2.4 представлен результат выполнения процедур создания и изме-
нения выравнивания и стиля номеров страниц. |
Главная
Каталог файлов
