BorlandTalk.com

Boris Pertsov · Guest

Hi!
I need to open new page in the word2000 in runtime and to insert text
inside.
How ? (Example).
Please !!!

Wayne Herbert · Guest

uses
comobj, Word2000;
var
Word : OLEVariant;
PageHeight, PageWidth : single;

Word := CreateOleObject('Word.Application');
Word.Visible := True; // Show Word
Word.Documents.Add; // Add a new Document
// if not a single view window then make it that way
if Word.ActiveWindow.View.SplitSpecial <> wdPaneNone then
Word.ActiveWindow.Panes[2].Close;
Word.ActiveWindow.View.Type := wdPrintView; // view allows accessing
headers
Word.ActiveWindow.ActivePane.View.Zoom.Percentage := 100;
Word.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument; // set
for main document
// set the page size
Word.ActiveDocument.PageSetup.PageHeight := PageHeight; // points
Word.ActiveDocument.PageSetup.PageWidth := PageWidth;
// write out a line of text
Word.Selection.TypeText(Text := 'This is a line of text');
// advance to the next line
Word.Selection.TypeParagraph;

I've got a program that uses odd and even headers, watermarks, and special
fields in the headers. Email me if you want it.

Boris Pertsov wrote: