Nach dem man die Kopf- oder Fußzeile als Objekt erhalten hat (Siehe auch
hier),kann man
auch den jeweiligen Text der Felder formatieren.Dazu muß für den Text einer Kopfzeile den Cursor aufrufen. Dann stehen die bekannten
Formatierungsfunktionen zur Verfügung.
sub formattextheader
Doc = thiscomponent
StyleFamilies = Doc.StyleFamilies
PageStyles = StyleFamilies.getByName("PageStyles")
DefPage = PageStyles.getByName("Standard")
DefPage.HeaderIsOn = True
DefPage.FooterIsOn = True
HContent = DefPage.RightPageHeaderContent
HContent.RightText.String = "rechter text"
oCursor = Hcontent.RightText.createTextCursor()
oCursor.setPropertyValue("CharFontName", "Arial")
oCursor.setPropertyValue("CharHeight", 16)
HContent.LeftText.String = "linker text"
HContent.CenterText.String = "mitte"
oCursor = Hcontent.LeftText.createTextCursor()
oCursor.setPropertyValue("CharFontName", "Arial")
oCursor.setPropertyValue("CharHeight", 16)
DefPage.RightPageHeaderContent
= Hcontent
end sub
Entsprechend kann man dann mit CenterText verfahren.
Und natürlich geht das Ganze auch bei den Fußzeilen RightPageFooterContent und
LeftPageFooterContent.
