430 Aufrufe
Gefragt in Textverarbeitung von ahorn38 Experte (3.2k Punkte)
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.

3 Antworten

0 Punkte
Beantwortet von
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
0 Punkte
Beantwortet von
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
0 Punkte
Beantwortet von ahorn38 Experte (3.2k Punkte)
Hallo,
vielen Dank für deine Lösung, funzt
Noch einen schönen Abend und VG A.
...