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!

Answer 1

[Neugier2022]

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

Answer 2

[2strabag]

Relativ simpel.

https://www.google.com/search?client=firefox-b-d&q=word+w%C3%B6rter+ersetzen