OpenOffice.info

Sub drucke_Rahmen_nicht
'xray 
thisComponent.StyleFamilies().getbyname("FrameStyles").getbyname("Frame").print = false
End Sub

Hallo
[quote]-> Wie bekomme ich Zugriff auf die Rahmenvorlage? Mit "FrameStyles" oder?
[/quote]
Richtig.
[quote]Wie könnte ich dann in einer Rahmenvorlage die Attribut "Drucken" (unter Rahmen->Zusätze->Eigenschaften) verändern.[/quote]

[code]Sub drucke_Rahmen_nicht
'xray
thisComponent.StyleFamilies().getbyname("FrameStyles").getbyname("Frame").print = false
End Sub[/code]
Kennst du [url=http://www.ooomacros.org/dev.php#101416]xray[/url]?
Gruß Karo

Sub Change_CharacterStyles
Dim oDoc
oDok = ThisComponent
oStyles = oDok.StyleFamilies
oCharacterStyles = oStyles.getByName("CharacterStyles")
myStyle = oCharacterStyles.getByName("MeineVorlage")'Name anpassen
myStyle.CharColor = RGB(255,234,44)
End Sub

Hi WoOolf,

[quote="WoOolf"]Aber wie kann ich eine bestehende Formatvorlage über ein Makro verändern.[/quote]
Vielleicht so:[code]Sub Change_CharacterStyles
Dim oDoc
oDok = ThisComponent
oStyles = oDok.StyleFamilies
oCharacterStyles = oStyles.getByName("CharacterStyles")
myStyle = oCharacterStyles.getByName("MeineVorlage")'Name anpassen
myStyle.CharColor = RGB(255,234,44)
End Sub[/code]

Viel Erfolg.

Jürgen