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

Previous  Top  Next

    
 

 

 

 

Footer:

Code:

{ ... }

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

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

'This is a footer';

{ ... }

 

©Drkb::04427

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