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.