Hallo,
Fraus Vorschlag ist lauffähig und zielführend. Hier ein weiterer Ansatz, der eleganter erscheint, weil nichts gelöscht wird:
Ich schlage eine UserForm mit einer TextBox und einem CommandButton vor:
Sub userform_initialize()
TextBox1 = Selection.Text
End Sub
Private Sub CommandButton1_Click()
With TextBox1
If Start * Length > 0 Then Selection.Characters(.SelStart, .SelLength).Font.Color = RGB(255, 0, 0)
End With
Unload UserForm1
End Sub
Der Vorteil ist, dass die Markierung in der TextBox erfolgen kann. Außerdem könnten leicht einige Schaltflächen zur Auswahl der Schriftfarbe hinzugefügt werden. Ich bitte diesen Vorschlag nicht als Kritik, sondern als Anregung zu verstehen.
Gruß
Holger
|