OLE - Word - Text ersetzen - in Tabellen

[Painterxyz]

Guten Morgen,

nun der umgesetzte Tip hat nicht das gewünschte Ergebnis gebracht.

Durch probieren habe ich herausgefunden das #11 für einen Zeilenumbruch in Tabellen sorgt.

Mit freundlichen Grüßen, Painterxyz

[Painterxyz]

Wie kann man die CRs (#13) möglichst schnell in den Tabellen ersetzen durch VTs (#11)?

[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