- #1
I
Ixus
Guest
Hallo allerseits,
vielleicht kann mir jemand helfen:
Ein Text der durch dynamische Bausteine erstellt wurde, soll auszugsweise einem Empfänger zur Verfügung gestellt werden. Alle Textbausteine die anschließend entfernt werden müssen, habe ich am Anfang bzw. Ende mit einem + Zeichen versehen. Das folgende Makro:
Sub AutoNew()
Selection.Paste
Application.ScreenUpdating = True
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
.Format = True
.MatchWildcards = True
.Text = (+)(*)(+)
.Replacement.Font.Name = Arial
.Replacement.Font.Size = 11
.Replacement.Font.Color = wdColorAutomatic
.Replacement.Text = pp. ...
.Execute Replace:=wdReplaceAll
Application.ScreenUpdating = True
End With
End Sub
kopiert mir den Originaltext in ein neues Dokument, sucht sich anschließend alle mit + markierten Stellen und ersetzt diese durch pp. .... Das funktioniert bis hierher auch ganz ordentlich. Mein Problem besteht darin, dass wenn mehrere zu entfernende Textteile im Originaltext gefunden werden, dann werden diese Teile auch mehrere Male durch pp. ... ersetzt. D.h. im Text steht dann mehrere Male hintereinander pp. ..., wo es aber nur 1x autauchen sollte.
Hat jemand eine Lösung????
Vielen Dank im voraus!!!
Ixus
vielleicht kann mir jemand helfen:
Ein Text der durch dynamische Bausteine erstellt wurde, soll auszugsweise einem Empfänger zur Verfügung gestellt werden. Alle Textbausteine die anschließend entfernt werden müssen, habe ich am Anfang bzw. Ende mit einem + Zeichen versehen. Das folgende Makro:
Sub AutoNew()
Selection.Paste
Application.ScreenUpdating = True
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
.Format = True
.MatchWildcards = True
.Text = (+)(*)(+)
.Replacement.Font.Name = Arial
.Replacement.Font.Size = 11
.Replacement.Font.Color = wdColorAutomatic
.Replacement.Text = pp. ...
.Execute Replace:=wdReplaceAll
Application.ScreenUpdating = True
End With
End Sub
kopiert mir den Originaltext in ein neues Dokument, sucht sich anschließend alle mit + markierten Stellen und ersetzt diese durch pp. .... Das funktioniert bis hierher auch ganz ordentlich. Mein Problem besteht darin, dass wenn mehrere zu entfernende Textteile im Originaltext gefunden werden, dann werden diese Teile auch mehrere Male durch pp. ... ersetzt. D.h. im Text steht dann mehrere Male hintereinander pp. ..., wo es aber nur 1x autauchen sollte.
Hat jemand eine Lösung????
Vielen Dank im voraus!!!
Ixus