[gelöst] Farbe Toggeln per Makro

[akoerber]

Hallo,
ich möchte gern eine Art "Korrekturkennung" bauen, d.h. eine Markierung von Textteilen, die ich noch weiter bearbeiten muss. Das soll per Tastendruck gehen.

Ich habe vor ein paar Tagen eine Makro bekommen zum Toggeln von Kapitälchen, und versucht, diesen anzupassen.

Leider funktioniert es nicht. ich bin auch noch zu neu in dieser Programmierstruktur.

Kann mir jemand helfen?

Hier mein Versuch:

Code: Alles auswählen

sub SetKorrKenn
Dim Selection as Object

Selection = ThisComponent.getcurrentSelection()
if not isNull(Selection) then
   if Selection.getCount = 1 then
      Selection = Selection.getbyIndex(0)
      if Selection.CharColor = com.sun.star.style.CharacterProperties.CharColor.0xff0000 then 
         Selection.CharColor   = com.sun.star.style.CharacterProperties.CharColor.NONE
      else
         Selection.CharColor   = com.sun.star.style.CharacterProperties.CharColor.0xff0000
      endif
   elseif Selection.getCount > 1 then
      msgbox("Mehrfachselektion ist nicht erlaubt!")
      exit sub
   endif
endif
end Sub

Dank im Voraus

Andreas

[Karolus]

Hallo
An die Zeichenfarbe kommt man leichter dran:

Code: Alles auswählen

sub toggeln_gruen
Dim Selection as Object

Selection = ThisComponent.getcurrentSelection()
if not isNull(Selection) then
   if Selection.getCount = 1 then
      Selection = Selection.getbyIndex(0)
      'print  Selection.charcolor
      if Selection.Charcolor = 65280 then'wenn grün
         Selection.Charcolor = -1 'zurücksetzen
      else
         Selection.Charcolor   = rgb(0,255,0)'auch grün
      endif
   elseif Selection.getCount > 1 then
      msgbox("Mehrfachselektion ist nicht erlaubt!")
      exit sub
   endif
endif
End Sub

Gruß Karo

[akoerber]

Danke!
Andreas