Annemieke hat ein Dokument, das ziemlich lang ist und eine gute Anzahl von Hyperlinks enthält. Sie möchte alle diese Hyperlinks (und nur die Hyperlinks) in ein brandneues Dokument kopieren, damit sie eine Liste davon an einem Ort hat. Sie fragt sich, ob es einen einfachen Weg gibt, dies zu tun.

Die einzige Möglichkeit, dies zu tun, ist die Verwendung eines Makros. (Vorschläge, die das Suchen und Ersetzen oder das Suchen von Text mit bestimmten Stilen umfassen, kopieren nur den Linktext und nicht den eigentlichen Hyperlink.) Der Schlüssel im Makro besteht darin, mit der Hyperlinks-Auflistung zu arbeiten, wobei die Eigenschaften TextToDisplay und Adresse von besonders zu beachten sind jedes Mitglied der Sammlung.

Sub PullHyperlinks()

Dim Src As Document     Dim Link As Hyperlink     Dim iDoDisplay As Integer

Set Src = ActiveDocument     If Src.Hyperlinks.Count > 0 Then         iDoDisplay = MsgBox("Include display text for links?", vbYesNo)



Documents.Add DocumentType:=wdNewBlankDocument         For Each Link In Src.Hyperlinks             If iDoDisplay = vbYes Then                 Selection.TypeText Link.TextToDisplay                 Selection.TypeText vbTab             End If             Selection.TypeText Link.Address             Selection.TypeParagraph         Next Link     Else         MsgBox "There are no hyperlinks in this document."

End If End Sub

Das Makro prüft zunächst, ob das aktuelle Dokument Hyperlinks enthält. Wenn dies der Fall ist, kann der Vorgang des Herausziehens fortgesetzt werden. Ist dies nicht der Fall, wird eine entsprechende Meldung angezeigt.

Angenommen, das Dokument enthält Hyperlinks, wird der Benutzer gefragt, ob das neue Dokument den Anzeigetext für die Links enthalten soll. Das Makro erstellt dann ein neues Dokument und durchläuft jedes Mitglied der Hyperlinks-Auflistung. Der Wert der TextToDisplay-Eigenschaft wird dem neuen Dokument hinzugefügt (falls zutreffend), gefolgt vom Wert der Address-Eigenschaft.

_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 (13549) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.