OpenOffice.info

Code: Alles auswählen

Sub Kopfzeile_ein_aus
Dim Doc As Object
Dim Sheet As Object
Dim StyleFamilies As Object
Dim PageStyles As Object
Dim DefPage As Object
Doc = StarDesktop.CurrentComponent
StyleFamilies = Doc.StyleFamilies
PageStyles = StyleFamilies.getByName("PageStyles")
'Hier Namen der Seitenvorlage eintragen
'der Name der Vorlage "Standard" entspricht "Default"
'wie vorgegeben. Bei selbsterstellten Vorlagen
'entspricht der Name dem vergebenen Namen
DefPage = PageStyles.getByName("Default")
'Einschalten
'DefPage.HeaderIsOn = True
'Ausschalten
DefPage.HeaderIsOn = False
End Sub