Как добавить текст в header документа?

Previous  Top  Next

    
 

 

 

Code:

{ ... }

aDoc := WordApp.Documents.Add(EmptyParam, EmptyParam);

aDoc.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Text :=

'This is a header';

{ ... }

 

©Drkb::04426

Взято с Delphi Knowledge Base: http://www.baltsoft.com/