Outlook Kontakt Notizfeld Format

Der Grund dafür ist, dass das Replace-Argument in der Execute-Methode das gesamte Dokument durchsucht und alle Leerzeichen durch Tabs ersetzt, anstatt nur diejenigen, die direkt aufeinanderfolgen.

Eine Möglichkeit, dieses Problem zu lösen, besteht darin, eine Schleife zu verwenden, um den Text Zeile für Zeile zu durchlaufen und die Leerzeichen zu ersetzen. Hier ist ein Beispiel:

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 arrLines as Variant
arrLines = Split(strText, vbCrLf)
For i = 0 To UBound(arrLines)
arrLines(i) = Replace(arrLines(i), " ", "^t")
Next i
strText = Join(arrLines, vbCrLf)
Doc.Content.Text = strText
End Sub

In diesem Code wird der gesamte Text im Dokument in die Variable strText gespeichert, dann wird er in ein Array aufgeteilt, indem er an jedem Zeilenumbruch getrennt wird. Dann wird jede Zeile durchlaufen und alle aufeinanderfolgenden Leerzeichen durch Tabs ersetzt.

Es gibt auch eine andere Möglichkeit die RegEx (Regular Expression) verwenden, um die Leerzeichen zu finden und zu ersetzen, aber es ist etwas komplexer als die Verwendung einer Schleife. Mit der RegEx-Methode können Sie spezifischere Muster suchen und ersetzen, z.B. mehrere aufeinanderfolgende Leerzeichen. Hier ist ein Beispiel, wie es in Ihrem Code verwendet werden kann:

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
objRegEx.Replace(strText, "^t")
Doc.Content.Text = strText
End Sub

 
In diesem Code wird ein RegEx-Objekt erstellt und die Eigenschaft “Pattern” wird auf ein Muster gesetzt, das mehrere aufeinanderfolgende Leerzeichen sucht. Dann wird die Eigenschaft “Global” auf “True” gesetzt, damit die Methode Replace alle Übereinstimmungen im Text ersetzt. Schließlich wird die Methode Replace aufgerufen, um alle aufeinanderfolgenden Leerzeichen durch Tabs zu ersetzen und der bearbeitete Text wird wieder in das Dokument geschrieben.

Es ist wichtig zu beachten, dass die RegEx-Methode etwas komplexer ist und mehr Zeit zum Verstehen und Implementieren benötigen kann. Es hängt davon ab, welche Methode für Sie am besten geeignet ist.

Für den ersten Code, könnten Sie versuchen, die Schleife, die Sie verwenden, um die Zeilen zu durchlaufen, so anzupassen, dass sie nur die Leerzeichen ersetzt, die direkt aufeinanderfolgen. Sie könnten zum Beispiel eine Schleife verwenden, um jede Zeile zu durchlaufen und dann eine weitere Schleife verwenden, um jedes Zeichen in der aktuellen Zeile zu durchlaufen. Wenn ein Leerzeichen gefunden wird, können Sie überprüfen, ob das nächste Zeichen ebenfalls ein Leerzeichen ist. Wenn dies der Fall ist, ersetzen Sie das Leerzeichen durch einen Tabulator.

Für den zweiten Code, gibt es einen kleinen Fehler in der letzten Zeile, es sollte sein:

objRegEx.Replace(strText, "^t")

Statt:
objRegEx.Replace (strText = "^t")

Bitte beachten auch die Hochkommas…

Ich hoffe, dass diese Anpassungen Ihnen helfen, das gewünschte Ergebnis zu erzielen.