Makro für Kopf- Fusszeile

[mike6]

Hallo,

folgendes Makro hat mir ein netter Mensch zur Verfügung
gestellt.

++++++++++++++++++++++++++++++++++++++++++

sub kopfcalc
links = InputBox ("Bitte den linken Text eingeben:","")
mitte = InputBox ("Bitte den mittleren Text eingeben:","")
rechts = InputBox ("Bitte den rechten Text eingeben:","")
Doc = thiscomponent
StyleFamilies = Doc.StyleFamilies
PageStyles = StyleFamilies.getByName("PageStyles")
DefPage = PageStyles.getByName("Standard")
DefPage.HeaderIsOn = True
HContent = DefPage.RightPageHeaderContent
Htext = HContent.RightText
Htext.String = rechts
Htext = HContent.LeftText
Htext.String = links
Htext = HContent.CenterText
Htext.String = mitte
DefPage.RightPageHeaderContent = Hcontent
end sub

+++++++++++++++++++++++++++++++++++++++++++++


Funktioniert bestens!!!.
Nun meine Frage:

kann man das Makro so ändern, dass man noch eine bestimmte
Schriftart, Schriftgröße etc. als Standard eingeben kann ??

mfg
mike6

[Stephan]

kann man das Makro so ändern, dass man noch eine bestimmte
Schriftart, Schriftgröße etc. als Standard eingeben kann ??

Nein oder zumindest weiß ich derzeitig nicht wie.

Du kannst jedoch die Angaben immer mittels Makro ändern über:

Code: Alles auswählen

Htext.text

beispielweise:
Fett:

Code: Alles auswählen

Htext.text.charweight = com.sun.star.awt.FontWeight.BOLD

Arial:

Code: Alles auswählen

Htext.text.CharFontName = "Arial"

20 Punkt:

Code: Alles auswählen

Htext.text.CharHeight = 20

Gruß
Stephan