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
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