[gelöst] Farbe Toggeln per Makro

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [gelöst] Farbe Toggeln per Makro

Re: Farbe Toggeln per Makro

von akoerber » Di, 25.11.2008 12:55

Danke!
Andreas

Re: Farbe Toggeln per Makro

von Karolus » Mo, 24.11.2008 21:05

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

[gelöst] Farbe Toggeln per Makro

von akoerber » Mo, 24.11.2008 20:29

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

Nach oben