Как добавить текст в footer документа?
Falk0ner, вс, 06/07/2008 - 15:35.
Footer:
{ ... }
aDoc := WordApp.Documents.Add(EmptyParam, EmptyParam);
aDoc.Sections.Item(1).Footers.Item(wdHeaderFooterPrimary).Range.Text :=
'This is a footer';
{ ... }
aDoc := WordApp.Documents.Add(EmptyParam, EmptyParam);
aDoc.Sections.Item(1).Footers.Item(wdHeaderFooterPrimary).Range.Text :=
'This is a footer';
{ ... }
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
Отправить комментарий