Для того чтобы вставить новую страницу в документ Word, используйте ме-
тод InsertBreak объекта Range с параметром Type:=wdPageBreak. Новая стра-
ница вставляется в область, заданную объектом Range, поэтому от положе-
ния этого объекта зависит то, будет новая страница добавлена в конец до-
кумента или сплошной текст будет разорван и размещен на разных
страницах. Для того чтобы добавить страницу в конец документа, можно
использовать метод InsertBreak объекта Range, указывающий на последний
символ документа.
Добавление страницы в конец документа
const wdPageBreak=7;
var W:variant;
procedure TForml.Button3Click(Sender: TObject);
begin
W.ActiveDocument.Range(W.ActiveDocument.Range.end-1). J
InsertBreak(Type:=wdPageBreak);
end;
Другой способ более универсален. Перемещаем курсор в конец документа и
вызываем метод InsertBreak объекта Selection. Этот способ применим и для
того, чтобы вставить страницу, разорвав текст в середине документа. Перед
использованием этого способа необходимо разместить курсор в том месте,
где требуется вставить страницу. Для этого можно выбрать любой способ,
например поиск фрагмента текста в документе. Следующие две процедуры
демонстрируют то, как работает этот способ. Вторая процедура отличается
от первой тем, что сначала выделяется искомый фрагмент, а затем вызыва-
ется метод InsertBreak объекта Selection. Это является избыточным, но на-
глядным как пример.
Добавление страницы в разрыв текста документа
procedure TForml.Button4Click(Sender: TObject);
var myRange:variant;
begin
myRange:=W.Act iveDocument.Range;
myRange.Find.Execute(FindText:='my', Forward:=True);
i f myRange.Find.Found Then myRange.InsertBreak(Type:=wdPageBreak);
end;
procedure TForml.Button4Click(Sender: TObject);
var myRange:variant;
begin
myRange:=W.ActiveDocument.Range;
myRange.Find.Execute(FindText:='my', Forward:=True);
if myRange.Find.Found then begin
myRange.select;
W.Select ion.InsertBreak(Type:=wdPageBreak);
end;
end;
|
Главная
Каталог файлов
