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