Hallo zusammen,
ich möchte Text ersetzen:
Sub Ersetzungen(ByVal txtSuch As String, ByVal txtErsetz As String)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = txtSuch
.Replacement.Text = txtErsetz
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Aufruf mit
Call Ersetzungen("*****", vWordTauscher(3))
den vWordTauscher hole ich vorher aus einer Excel-Tabelle
Soweit sogut. Das funktioniert eigentlich.
in Meinem Projekt habe ich jetzt aber längere Texte, Teilweise mehrzeilig (3000+ Zeichen) in der Excel-Tab und dann steigt der Replacement.Text aus...
Gibt es da eine Begrenzung an Zeichen? und wie kann man sie umgehen...
Danke
FG
|