Unbekannte Farbe

[Mau]

Liebe ExpertInnen,

ich habe in einem mir zugesandten Dokument eine für Textkorrekturen manuell eingefügte Zeichenhintergrundfarbe, die ich gegen eine andere austauschen möchte, weil sie für die Schriftfarbe zu dunkel ist.
Das Problem: Er hat irgendeine Farbe benutzt, die in der von Writer vorgegebenen Farbpalette nicht enthalten ist.
Wenn ich dann einen Buchstaben, der mit der Farbe unterlegt ist, markiere, über die Taste [F9] die Zeichenformatierung und dort den Reiter Hervorhebung aufrufe, wird mir zwar rechts die Hintergrundfarbe angezeigt, in dem Eingabefeld über der Palette und unter ihr in dem Statusfeld steht aber beide Male Keine Füllung.
Gibt es keinen Weg, die RGB- oder CYMK-Zusammensetzung der fremden Farbe zu ermitteln?
Das Dokument ist recht groß und enthält zahlreiche farblich unterlegte Einfügungen, deswegen muss ich die Farbe mit Suchen & Ersetzen austauschen können.

Liebe Grüße,
Mau

[F3K Total]

Hi,
ich konnte keine direkte Methode finden, dieses Makro hilft: Text markieren und Makro ausführen gibt den RGB Wert der Hintergrundfarbe:

Code: Alles auswählen

Sub Get_CharBackColor
    nColor = thiscomponent.CurrentController.ViewCursor.CharBackColor
    Inputbox ("RGB:","Hintergrundfarbe",""+RED(nColor)+"|"+GREEN(nColor)+"|"+BLUE(nColor))
End Sub

Gruß R

[Mau]

Lieber F3K Total,

einfach klasse!!

Muss ich einen Buchstaben markiert haben, oder reicht es, wenn der Cursor in dem betreffenden Wort steht?

MfG,
Mau

[Mau]

Lieber F3K Total,

meine Frage habe ich bereits durch Ausprobieren beantwortet: Es geht Beides.

Ich habe deine Programmierung noch ein klein wenig komfortabler gemacht:

Code: Alles auswählen

Sub Hintergrundfarbe_ermitteln

nColor = thiscomponent.CurrentController.ViewCursor.CharBackColor
Inputbox ("RGB:","Hintergrundfarbe","Rot: "+RED(nColor)+"  |  Grün: "+GREEN(nColor)+"  |  Blau: "+BLUE(nColor))

End Sub

Gruß,
Mau