Makroproblem 1

[mike6]

Hallo,

mit dem folgenden Makro ( Oo-Calc 2.0 ) fülle ich die Kopzeilen
eines Tabellendokuments aus.


+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
sub kopfcalc
links = InputBox ("Bitte den linken Text in der Kopfzeile eingeben:")
mitte = InputBox ("Bitte den mittleren Text in der Kopfzeile eingeben:")
rechts = InputBox ("Bitte den rechten Text in der Kopfzeile 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
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Besteht auch noch die Möglichkeit, das als
Schriftart: ComicSansif, Fettschrift
Schriftgröße:14

in das o.a. Makro eingearbeitet werden kann ??


Für Eure Hilfe bedanke ich mich im voraus.

mfg
mike

[ykcim]

hi,

an passender Stelle einfügen:

Code: Alles auswählen

    Htext.String = rechts 
    Htext.Text.CharFontName="ComicSansif"
    Htext.Text.CharHeight="20"
    Htext.Text.CharWeight=com.sun.star.awt.FontWeight.BOLD

mfg
Michael

[mike6]

Hallo,

wie immer,
vielen Dank !!


mfg
mike