Text in Grafiken verschieden formatieren via Makro

[Alien]

Hallo zusammen,

ich habe bereits Rechtecke mit Text erstellt, und darin den Text formatiert, z.B. unterstrichen und Fett, Schriftgröße 12.

Meine Frage: Wie kann ich einzelne Buchstaben in dem Rechteck verschieden formatieren? Z.B. Wenn das Rechteck den Text

Hallo Ihr!

enthält:

Hallo Ihr!

Geht das irgendwie?

Vielen Dank schon mal für Antworten!

[komma4]

Willkommen im Forum

Geht das irgendwie?

Klar geht das

Code: Alles auswählen

oText = ThisComponent.Drawpage.getByIndex(0).Start.getText()
oTC = oText.createTextCursor()

With oTC
.goRight( 3, TRUE )
.setPropertyValue( "CharWeight", 150 )
End With

With oTC
.gotoStart(FALSE)
.goRight( 3, FALSE )
.goRight( 3, TRUE )
.setPropertyValue( "CharWeight", 100 )
End With

With oTC
.gotoStart(FALSE)
.goRight( 3, FALSE )
.goRight( 3, FALSE )
.goRight( 2, TRUE )
.setPropertyValue( "CharWeight", 100 )
.setPropertyValue( "CharPosture", 2 )
End With

With oTC

.gotoStart(FALSE)
.goRight( 3, FALSE )
.goRight( 3, FALSE )
.goRight( 2, FALSE )
.goRight( 2, TRUE )
.setPropertyValue( "CharWeight", 100 )
.setPropertyValue( "CharUnderline", 1 )
End With

Die einzelnen goRights kann man natürlich auch zusammen fassen... war aber zu faul, kopieren geht schneller

[Alien]

Vielen Dank. Im Writer funktioniert das blendend!

Warum geht das denn im LO-Draw nicht? Oder muss man da bestimmte Befehle anpassen?

Er beschwert sich da über Drawpage, und wenn ich das zu Drawpages ändere beschwert er sich über Start.

Wenn ich mein bisheriges Makro auch im Writer zum laufen bekomme (im Moment beschwert er sich im Writer dann über Drawpages ), ist das jedenfalls eine Super Lösung, danke.

Viele Grüße

[komma4]

Sorry, ich bin von Zeichenobjekten im WRITER ausgegangen.

Bei Zeichnungen (Modul: DRAW) ist der Aufbau anders

ODG>DrawPages()>Shapes()>Text

bedeutet: eine Draw-Datei hat (sofern Zeichenobjekte enthalten sind mind. 1) DrawPage(s), (0 bis mehrere) Shapes, diese haben Text (oder auch nicht), mit welchem Du ein TextCursor erzeugen kannst.
Der Rest des Codes bleibt gleich

Code: Alles auswählen

' 2011-09-25 für DRAW
oPage1 = ThisComponent.Drawpages().getByName( "page1" )
oShape = oPage1.getByIndex(0)
oText = oShape.getText()
oTC = oText.createTextCursor()

Findest Du alles selbst raus, wenn Du -wie ich in diesem Fall- mit MRI die Objekte untersuchst.

Viel Erfolg!

[Alien]

Funktioniert fantastisch! Vielen vielen Dank!