Graham ist Redakteur und eine der (ganz üblichen) Aufgaben besteht darin, http: // von URLs zu entfernen, die http: // www starten. Graham findet diese Aufgabe einfach, wenn die URL nur Text ist. Wenn es sich jedoch um einen Hyperlink handelt, muss er das Dialogfeld Hyperlink bearbeiten anzeigen, im Feld Zu zeigender Text http: // auswählen, löschen und das Dialogfeld schließen.

Glücklicherweise müssen Sie nicht immer das Dialogfeld Hyperlink bearbeiten anzeigen, um Ihre Änderungen vorzunehmen. Selbst wenn ein Hyperlink aktiv ist, können Sie Informationen in den angezeigten Informationen finden und ersetzen. Wenn Sie beispielsweise nach http: // www suchen und durch www ersetzen, funktioniert dies auch bei aktiven Hyperlinks einwandfrei. Word ändert nur den angezeigten Text und nicht den zugrunde liegenden Hyperlink.

Wenn Sie viele, viele Hyperlinks bearbeiten müssen und das Abschneiden von URLs eine häufige Aufgabe ist, können Sie ein Makro verwenden, um dies zu handhaben. Sie können ein kurzes Makro entwickeln, das jeden Hyperlink im Dokument durchläuft und den http: // Teil entfernt. Das Folgende ist ein Beispiel:

Sub FixHyperlinks1()

Dim hyp As Hyperlink     Dim sLink As String

For Each hyp In ActiveDocument.Hyperlinks         sLink = hyp.Address         sLink = replace(strLink, "http://", "")

hyp.Address = sLink     Next hyp End Sub

Dieser Ansatz ist jedoch wahrscheinlich nicht so umfassend wie Sie möchten. Es betrifft nur aktive Hyperlinks. Es wirkt sich nicht auf Klartext-URLs in Ihrem Dokument aus. Wenn Sie einen umfassenderen Ansatz verwenden möchten, benötigen Sie etwas, das alle Hyperlinks entfernt (Sie benötigen sie wahrscheinlich überhaupt nicht im Dokument) und dann den http: // Teil entfernt. Hier ist eine, die genau das tut:

Sub FixHyperlinks2()

'Remove hyperlinks     With ActiveDocument         While .Hyperlinks.Count > 0             .Hyperlinks(1).Delete         Wend     End With

'Remove http://     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "http://www"

.Replacement.Text = "www"

.Forward = True         .Wrap = wdFindContinue      End With     Selection.Find.Execute Replace:=wdReplaceAll End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13147) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

HTTP aus URLs entfernen.