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.

Es tut mir leid, dass ich Ihnen nicht früher gesagt habe, dass die Methode „WholeStory.Select“ möglicherweise nicht verfügbar ist, je nach Version von Outlook, die Sie verwenden. Es gibt einige alternative Möglichkeiten, den gesamten Text im Dokument auszuwählen, bevor Sie die Ersetzung durchführen.

Eine Möglichkeit besteht darin, die Methode „Range.Select“ zu verwenden. 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
Doc.Range.Select
Doc.Content.Find.Execute FindText:=" ", ReplaceWith:="^t", Replace:=wdReplaceAll
End Sub

In diesem Code wird die Methode „Range.Select“ verwendet, um den gesamten Text im Dokument auszuwählen, bevor die Ersetzung durchgeführt wird.

Eine andere Möglichkeit besteht darin, den gesamten Text im Dokument direkt in eine Variable zu speichern und die Ersetzung auf dieser Variable durchzuführen. 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
strText = Replace(strText, " ", "^t")
Doc.Content.Text = strText
End Sub

In diesem Code wird der gesamte Text im Dokument in die Variable strText gespeichert und dann die Ersetzung auf dieser Variable durchgeführt.

Bitte versuchen Sie beide Methoden und lassen Sie mich wissen, welche Methode für Sie am besten funktioniert hat.

Es tut mir leid, dass es Probleme mit der Syntax gab und dass die Ersetzung von Leerzeichen durch Tabs nicht funktioniert hat.

Ein möglicher Grund, warum die Ersetzung nicht funktioniert, ist, dass das Selection-Objekt nicht richtig ausgewählt wird. Sie sollten die Methode „WholeStory.Select“ verwenden, um den gesamten Text im Dokument auszuwählen, bevor Sie die Ersetzung durchführen.

Hier ist der korrigierte Code:

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
Doc.Content.WholeStory.Select
Doc.Content.Find.Execute FindText:=" ", ReplaceWith:="^t", Replace:=wdReplaceAll
End Sub

Lassen Sie mich wissen, ob es jetzt funktioniert hat.

Es tut mir leid, dass ich den Fehler verursacht habe. Der Fehler liegt daran, dass ich ein doppeltes Leerzeichen verwendet habe, anstatt eines einfachen Leerzeichens. Hier ist der korrigierte Code:

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“
Doc.Content.WholeStory.Select
Doc.Content.Find.Execute FindText:=“ „, ReplaceWith:=“^t“, Replace:=wdReplaceAll
End Sub

In diesem Code wird nur ein einzelnes Leerzeichen verwendet, um mehrere Leerzeichen zu suchen und durch Tabs zu ersetzen. Bitte beachten Sie, dass Sie auch das Replace-Argument in der Execute-Methode angeben müssen, damit die Ersetzung durchgeführt wird.

Lassen Sie mich wissen, ob es funktioniert hat oder ob Sie weitere Probleme haben.

Ja, es ist möglich, einen anderen Browser für die Browser-Ansicht in Outlook zuzuordnen. Sie müssen lediglich die Standardeinstellungen für Ihren Browser in den Einstellungen von Windows ändern. Hier sind die Schritte dazu:

1. Klicken Sie auf das Startmenü und geben Sie „Einstellungen“ ein.
2. Klicken Sie auf „Apps“ und dann auf „Standard-Apps“
3. Scrollen Sie nach unten zu „Webbrowser“ und wählen Sie den Browser aus, den Sie als Standard verwenden möchten.

Nachdem Sie diese Schritte ausgeführt haben, sollte Outlook den von Ihnen ausgewählten Browser zur Anzeige von Hyperlinks verwenden.

Hyperlinks in Outlook-E-Mails können unter Windows 10 nicht geöffnet werden.

Sie können die „Replace“-Methode des „Selection“-Objekts verwenden, um mehrere Leerzeichen durch Tabs zu ersetzen. Hier ist ein Beispiel, wie Sie es in Ihrem Code integrieren 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“
Doc.Content.WholeStory.Select
Doc.Content.Find.Execute FindText:=“ „, ReplaceWith:=“^t“, Replace:=wdReplaceAll
End Sub

Dieser Code wählt den gesamten Inhalt des Notizfelds aus und ersetzt dann alle zwei Leerzeichen durch Tabs. Bitte beachten Sie, dass die Syntax für das Suchen und Ersetzen in Outlook anders ist als in Word. In Outlook müssen Sie die „Find“- und „Replace“-Methoden des „Selection“-Objekts verwenden.

Vielleicht klappt es so:

Sie müssten diesen Code in die VBA-Umgebung von Outlook einfügen und eine Tastenkombination oder eine Schaltfläche zur Ausführung des Skripts zuweisen.

Sub CreateHyperlink()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim strLink As String
Dim strClipboard As String
strLink = „https://www.example.com/“

Set objSelection = Outlook.Application.ActiveExplorer.Selection
Set objMail = objSelection.Item(1)

strClipboard = Outlook.Application.GetClipboard

‚Create the hyperlink
objMail.HTMLBody = „<a href=“““ & strLink & strClipboard & „““>“ & strLink & strClipboard & „</a>“
objMail.Save
End Sub

In diesem Skript wird die Variable strLink als die Basis-URL verwendet und die Zwischenablage-Zeichenfolge wird an die Basis-URL angehängt, um den vollständigen Hyperlink zu erstellen. Sie können die Basis-URL an Ihre Anforderungen anpassen.