Formatvorlagen ändern mit Makro

[turtle47]

Hi WoOolf,

Aber wie kann ich eine bestehende Formatvorlage über ein Makro verändern.

Vielleicht so:

Code: Alles auswählen

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

Viel Erfolg.

Jürgen

[Karolus]

Hallo

-> Wie bekomme ich Zugriff auf die Rahmenvorlage? Mit "FrameStyles" oder?

Richtig.

Wie könnte ich dann in einer Rahmenvorlage die Attribut "Drucken" (unter Rahmen->Zusätze->Eigenschaften) verändern.

Code: Alles auswählen

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

Kennst du xray?
Gruß Karo