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

Formatting Spreadsheet Documents 145
com.sun.star.sheet.HeaderFooterContent
service)
RightPageFooterContent (Object)
content of footers for odd pages (
com.sun.star.sheet.HeaderFooterContent
service)
If you do not need to distinguish between headers or footers for odd and even pages (the
FooterIsShared property is False), then set the properties for headers and footers on odd
pages.
All the named objects return an object that supports the
com.sun.star.sheet.HeaderFooterContent
service. By means of the (non-genuine) properties LeftText, CenterText, and RightText, this
service provides three text elements for the headers and footers of OpenOffice.org Calc.
The following example writes the "Just a Test." value in the left-hand text field of the header
from the "Default" template.
Dim Doc As Object
Dim Sheet As Object
Dim StyleFamilies As Object
Dim PageStyles As Object
Dim DefPage As Object
Dim HText As Object
Dim HContent As Object
Doc = StarDesktop.CurrentComponent
StyleFamilies = Doc.StyleFamilies
PageStyles = StyleFamilies.getByName("PageStyles")
DefPage = PageStyles.getByName("Default")
DefPage.HeaderIsOn = True
HContent = DefPage.RightPageHeaderContent
HText = HContent.LeftText
HText.String = "Just a Test."
DefPage.RightPageHeaderContent = HContent
Note the last line in the example: Once the text is changed, the TextContent object must be
assigned to the header again so that the change is effective.
Another mechanism for changing the text of headers and footers is available for text
documents (OpenOffice.org Writer) because these consist of a single block of text. The
following properties are defined in the
com.sun.star.style.PageProperties