Kopf- und Fußzeilen per Makro ein- und ausschalten

[mecki_45]

Hallo zusammen,
wie kann ich Fuß- und Kopfzeilen per Makro ein- bzw. ausschalten?

Gruß
Alex

[Stephan]

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

Gruß
Stephan

[mecki_45]

Hallo Stephan,

Danke für die schnelle Hilfe, hat mir prima weitergeholfen.

Frage:
Wo finde ich selbst diese Anregungen?

Grüßle
Alex

[Stephan]

Wo finde ich selbst diese Anregungen?

guter Ausgangspunkt ist:
http://de.openoffice.org/

das SO-Basic-Programmierhandbuch von Sun:
http://docs.sun.com/db/doc/817-3924?l=de

erschlagende Fülle von Informationen (schwer zu lesen aber unverzichtbar) in:
http://api.openoffice.org/DevelopersGui ... Guide.html

Beispiel-Makros:
http://www.ooomacros.org/user.php

das englische Forum:
http://www.oooforum.org/

weitere:
http://www.pitonyak.org
http://www.dannenhoefer.de
http://www.wernerroth.de
http://www.sternenbuero.de
http://www.teamstaroffice.org
http://www.it-know-how.net
...

Gruß
Stephan