VBA Suchen ersetzen Tabstop

VBA Suchen ersetzen Tabstop - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Word (https://office-fragen.de/forum-3.html)
+--- Thema: VBA Suchen ersetzen Tabstop (/thread-29220.html)

VBA Suchen ersetzen Tabstop - Caldolan - 13.01.2025

Hi - ich schreibe in eine zeile folgendes

Code:
Selection.TypeText Text:="mm" & vbTab & "QM"

Nun möchte ich es suchen und ersetzten

Code:
With Selection.Find

                    .ClearFormatting

                    .Replacement.ClearFormatting

                    .Text = "mm" & Chr(9) & "QM"

                    .Replacement.Text = ""

                    .Wrap = wdFindContinue 

                    .Execute Replace:=wdReplaceAll

End With

Aber das klappt leider nicht. Ich hab es auch schon mit

Code:
.Text = "mm" & vbTab & "QM"

Probiert - klappt aber auch nicht. Kennt hier jemand die Lösung? Mit google leider nicht wirklich fündig geworden bzw. die falsche Suchbegriffe verwendet...

RE: VBA Suchen ersetzen Tabstop - Caldolan - 13.01.2025

Oh langsam verstehe ich es mehr und es liegt eigentlich nicht an den TAB-Stop...

Ich mach einen Serienbrief und hab versuch zu ersetzen vor

Code:
.Execute Pause:=False

D. h. da sind noch von diversen Feldeinfügungen ausgeblendete Felder drin... Also muss ich das suchen ersetzen einfach nur verschieben. Man kann das somit schließen.

RE: VBA Suchen ersetzen Tabstop - thomasmeyer42 - 26.01.2025

Besteht das Problem weiterhin?

RE: VBA Suchen ersetzen Tabstop - thomasmeyer42 - 26.01.2025

Das Problem könnte daran liegen, dass der Tabulator (vbTab) oder Chr(9) in der Suchfunktion von Word nicht direkt erkannt wird.

RE: VBA Suchen ersetzen Tabstop - thomasmeyer42 - 26.01.2025

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.