Hallo Ihr Profis,

Bitte um Hilfe, ich nutze folgenden Code, um die Schrift im Notizfeld der Kontakte zu formatieren, weil nach Synchronisierung mit dem Microsoft Exchange Profil oft die Formatierung dort verschwunden ist:

Sub Schrift_Kontakte_Notizen()
Dim Ctk As ContactItem, InSp As Inspector, Doc As Object
Set Ctk = ActiveExplorer.Selection(1)

Debug.Print Ctk.Body
Set InSp = Ctk.GetInspector
Set Doc = InSp.WordEditor
InSp.Display

Doc.Content.Font.Name = “Calibri”
Doc.Content.Font.Size = “14”

End Sub

Alles geht perfekt, nun zu meiner Frage, ich möchte gern in diesen Code eine SUCHEN – ERSETZEN Funktion einbauen, die folgendes macht:
SUCHEN von mehr als 1 Leerzeichen mit ” {2;}”
ERSETZEN mit “^t”

Habt Ihr einen Vorschlag, es zu integrieren in o.g. Code?
Habe sowas im Word Makro Aufzeichner gemacht, leider funktioniert der Code aber nicht im Outlook
Vielen Dank