VBA Suchen ersetzen Tabstop

[thomasmeyer42]

Code:

With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "mm^tQM" ' Tabulator als ^t angeben
    .Replacement.Text = ""
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
End With

^t: In Word wird der Tabulator durch ^t dargestellt.
.Wrap = wdFindContinue: Sucht weiter, wenn das Dokumentende erreicht ist.
.Execute Replace:=wdReplaceAll: Führt den Ersetzen-Befehl für alle Vorkommen aus.