Entfernen von HTTP aus URLs (Microsoft Word)
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.
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: