Schwarzen Text löschen

Question

Hallo,

als Neuling in VBA für word möchte ich in einem Text, der aus schwarzen und roten Wörtern besteht alle schwarzen Wörter löschen.
Ich habe dazu den gesamten Text markiert und folgenden Code ausgeführt:

Sub SchwarzLoeschen()
' schwarzen Text loeschen
With Selection.Find
.Font.Color = RGB(0, 0, 0)
.Replacement.Text = ""
.Forward = True
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Der läuft zwar ohne Fehler, aber es passiert auch nichts.
Hat jemand eine Tipp wie gehen könnte? Danje und Gruß A.

Answer 1

das Makro ist erstmal in Ordnung und funktioniert mit anderen Farbwerten als Schwarz problemlos.
Warum das mit Schwarz nicht geht frag ich mich allerdings auch gerade

Answer 2

probiers mal damit:

Sub SchwarzLoeschen()
' schwarzen Text loeschen
With Selection.Find
.Font.ColorIndex = wdColorBlack
.Replacement.Text = ""
.Forward = True
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Answer 3

Hallo,
vielen Dank für deine Lösung, funzt
Noch einen schönen Abend und VG A.