OpenOffice.info

Sub Main
  textcursor = thiscomponent.sheets(0).Drawpage.forms(0).getbyindex(0).getText.createtextcursor()
  textcursor.gotoStart(false)
  textcursor.goright(3,true)
  textcursor.CharColor = rgb(255,0,0)
  msgbox "Markierter Text: " & textcursor.String & chr(13) & "Farbe: " & textcursor.CharColor
End Sub

Was ich festgestellt habe: Man kann zumindest theoretisch den Text einfärben, aber auch nicht zeilenweise. Allerdings wird er nicht eingefärbt angezeigt (OOo 3.0.0), aber die gesetzte Eigenschaft kann man auslesen.

z.B.:
[code]
Sub Main
textcursor = thiscomponent.sheets(0).Drawpage.forms(0).getbyindex(0).getText.createtextcursor()
textcursor.gotoStart(false)
textcursor.goright(3,true)
textcursor.CharColor = rgb(255,0,0)
msgbox "Markierter Text: " & textcursor.String & chr(13) & "Farbe: " & textcursor.CharColor
End Sub[/code]

Gruß,

Bin nicht sicher, aber ich denke da geht nichts.