Office-Fragen.de

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...

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.

Besteht das Problem weiterhin?

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

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.

Caldolan

Caldolan

thomasmeyer42

thomasmeyer42

thomasmeyer42