Mehrere Wörter aus Word-Dokument löschen?
Hey zusammen. Ich weiß, dass man mit Str+H einzelne Wörter aus einem Worddokument entfernen oder durch andere ersetzen kann. Gibt es einen Weg, dies mit mehreren Wörtern gleichzeitig zu tun? Ich habe eine Liste mit Wörtern, die alle entfernt werden sollen und es nacheinander zu tun würde ziemlich lange dauern. Ich habe auch schon versucht, es in VBA zu lösen, bin aber nicht weitergekommen. Dort kann man scheinbar auch keine ganze Liste einfügen.
Danke und noch einen frohen Freitag!
2 Antworten
Sub MultiReplace()
Dim StrFind As String, StrRepl As String
Dim FindItem As String, ReplaceItem As String
Dim i As Long
Dim aNote As Endnote
StrFind = "Red, Green, Blue, Red, Yellow, 123, 456"
StrRepl = "Sparrow, Duck, Falcon, Eagle, Pigeon, ABC, 987"
Set RngTxt = Selection.Range
For i = 0 To UBound(Split(StrFind, ","))
FindItem = Split(StrFind, ",")(i)
ReplaceItem = Split(StrRepl, ",")(i)
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = FindItem
.Replacement.Text = ReplaceItem
.Format = False
.MatchWholeWord = True
.MatchAllWordForms = False
.MatchWildcards = False
.Execute Replace:=wdReplaceAll
End With
For Each aNote In ActiveDocument.Endnotes
With aNote.Range
.Find.Execute FindText:=FindItem, ReplaceWith:=ReplaceItem, Replace:=wdReplaceAll
End With
Next aNote
Next i
End Sub