Makro für Kopf- Fusszeile

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Makro für Kopf- Fusszeile

von Stephan » So, 24.07.2005 12:17

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

Makro für Kopf- Fusszeile

von mike6 » So, 24.07.2005 10:59

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

Nach oben