Place text in the header or footer of a Word document (Views: 708)
Problem/Question/Abstract: Can someone tell me how to set the text in footers of MS Word documents programmatically from inside D5? I can create and open the document. I think it has to do with the BuiltInDocumentProperties. However, I cannot find a property for the document footer. Any ideas? Answer: Solve 1: You can't access the header/ footer via BuiltInDocumentProperties. Use this instead: Footer: { ... } aDoc := WordApp.Documents.Add(EmptyParam, EmptyParam); aDoc.Sections.Item(1).Footers.Item(wdHeaderFooterPrimary).Range.Text := 'This is a footer'; { ... } Header: { ... } aDoc := WordApp.Documents.Add(EmptyParam, EmptyParam); aDoc.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Text := 'This is a header'; { ... } Solve 2: This works with Word 2000, and I can't remember it having changed since Word 97, anyway. If Doc is your Word document: { ... } var Hdr: HeaderFooter; { ... } Hdr := Doc.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary); Hdr.Range.Text := 'This is a header'; { ... } |