OLE - Word - Text ersetzen - in Tabellen

[Sherlock]

Auf hohe Geschwindigkeit wirst Du bei Deiner Implementierung nicht kommen können, da Du Variants verwendest. Die bremsen nämlich OLE enorm aus. Aber Grundsätzlich kannst du ja Word die Sache machen lassen mit diesem VBA-Schnipsel solltest du weiterkommen.

Delphi-Quellcode:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Word.Selection.Find
        .Text = "huba"
        .Replacement.Text = "buba"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Sherlock