Could I insert a header into a Word Document in Delphi ?

[Bogdan81]

I understand how to create a new Word Document, how to write in it, but i don't know how to insert a header in the document ?

 

[Robertio]

I'd guess it is possible, but without knowing how you are creating your Word document I couldn't say how. Robertio
Alias: Robbie Calder
Software Developer
urc@walkermartyn.co.uk

 

[Bogdan81]

Ok Robertio, this is how i do it :

var
WordApplication, WordDocument: Variant;
AddToRecent:Boolean;
begin
WordApplication := CreateOleObject('Word.Application');
WordDocument := WordApplication.Documents.Add;
WordApplication.Selection.TypeText('Hello world');
AddToRecent := False;
WordDocument.SaveAs(FileName := 'C:\Doc.Doc', AddToRecent);
WordApplication.Quit(False);

Hope now you can help me !

 

[Bogdan81]

Robertio
but i found that using OLE is slower than using DDE, so I will use this code :

WordDocument1: TWordDocument;
WordApplication1: TWordApplication;

var
NewTemplate, Visible, ItemIndex : OleVariant;
begin
try
WordApplication1.Connect;
except
MessageDlg('Bla bla bla', mtError, [mbOk], 0);
Abort;
end;
WordApplication1.Visible := True;
NewTemplate := False;
Visible := true;
WordApplication1.Documents.Add(EmptyParam, NewTemplate, EmptyParam, Visible);

now could you help me ?

 

[lespaul]

This would be the VBA code to insert a header, but you should look at the following article on Word/Excel from Delphi too because the syntax will be slightly different.

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Header text"

http://community.borland.com/article/0,1410,10126,00.html#getting_started

Leslie
landrews@metrocourt.state.nm.us

SELECT * FROM USERS WHERE CLUE > 0
No Rows Returned