Hallo zusammen

ich haben fongenden Script (ca 10 Suchen - Ersetzen) - funktioniert auch

gerne würde ich aber wissen, wie oft zb "Rolf" durch "Kurt" ersetzt wurde oder Chr(10) durch "CR"

Wäre toll,wenn mir da jemand den Code wüsste. (Office 2019)

With Selection.Find          
    .Text = "Rolf"
    .Replacement.Text = "Kurt"
    .Execute Replace:=wdReplaceAll

    .Text = Chr(13)
    .Replacement.Text = "CR"
    .Execute Replace:=wdReplaceAll
End With

mfg Pepi