Outlook Kontakt Notizfeld Format

Es scheint, dass das Problem darin besteht, dass die Replace-Methode des RegEx-Objekts keinen Rückgabewert hat. Sie müssen den Text, der durch die Replace-Methode bearbeitet wird, in einer separaten Variablen speichern, bevor Sie ihn in das Dokument schreiben. Hier ist ein Beispiel, wie Sie dies tun können:

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
Dim strText as String
strText = Doc.Content.Text
Dim objRegEx as Object
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "\s{2,}"
objRegEx.Global = True
Dim strModifiedText as String
strModifiedText = objRegEx.Replace(strText, "^t")
Doc.Content.Text = strModifiedText
End Sub

In diesem Beispiel wird die Replace-Methode aufgerufen, um den Text zu bearbeiten und das Ergebnis wird in einer separaten Variablen namens strModifiedText gespeichert. Dann wird der Inhalt des Dokuments mit diesem bearbeiteten Text ersetzt.

Es tut mir leid, dass ich Ihnen nicht früher sagen konnte, dass der Platzhalter “^t” in VBA nicht als Tabulator funktioniert.

Eine Möglichkeit, das Problem zu lösen, besteht darin, den Tabulator explizit als ASCII-Code 9 zu definieren und ihn als ReplaceWith-Wert zu verwenden. Hier ist ein Beispiel, wie Sie dies tun können:

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
Dim strText as String
strText = Doc.Content.Text
Dim objRegEx as Object
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "\s{2,}"
objRegEx.Global = True
Dim strModifiedText as String
strModifiedText = objRegEx.Replace(strText, Chr(9))
Doc.Content.Text = strModifiedText
End Sub

In diesem Beispiel wird die Replace-Methode verwendet um alle aufeinanderfolgenden Leerzeichen mit dem ASCII-Code 9 (Tabulator) zu ersetzen, der von der Funktion Chr(9) generiert wurde.