OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

Formatting Spreadsheet Documents 146
service:
HeaderText (Object)
text object with content of the header (
com.sun.star.text.XText
service)
HeaderTextLeft (Object)
text object with content of headers on left-hand pages (
com.sun.star.text.XText
service)
HeaderTextRight (Object)
text object with content of headers on right-hand pages (
com.sun.star.text.XText
service)
FooterText (Object)
text object with content of the footer (
com.sun.star.text.XText
service)
FooterTextLeft (Object)
text object with content of footers on left-hand pages (
com.sun.star.text.XText
service)
FooterTextRight (Object)
text object with content of footers on right-hand pages (
com.sun.star.text.XText
service)
The following example creates a header in the "Default" page style for text documents and
adds the text "Just a Test" to the header.
Dim Doc As Object
Dim Sheet As Object
Dim StyleFamilies As Object
Dim PageStyles As Object
Dim DefPage As Object
Dim HText As Object
Doc = StarDesktop.CurrentComponent