Entfernen von Hyperlinks in Fußnoten (Microsoft Word)
Dennis hat ein kleines Makro, mit dem sich Hyperlinks hervorragend aus einem Dokument entfernen lassen. Er hat gerade ein neues Dokument erhalten, mit dem er arbeiten kann, und es enthält einige Hyperlinks in Fußnoten. Das Makro entfernt diese Hyperlinks nicht und das manuelle Entfernen ist eine große Aufgabe. Dennis fragt sich, ob es eine Möglichkeit gibt, Hyperlinks in Fußnoten auf einmal zu entfernen.
Eigentlich gibt es einen Weg. Wenn Sie möchten, können Sie dies manuell tun, indem Sie die folgenden Schritte ausführen:
-
Positionieren Sie den Einfügezeiger im Hauptteil einer Fußnote. (Es spielt keine Rolle, welche Fußnote.)
-
Drücken Sie Strg + A. Dadurch werden alle Fußnoten ausgewählt. (Wenn der gesamte Text in Ihrem Dokument ausgewählt ist, bedeutet dies, dass Sie Schritt 1 nicht ausgeführt haben.)
-
Drücken Sie Strg + Umschalt + F9. Dadurch werden die Hyperlinks im ausgewählten Text (die Fußnoten) in normalen Text konvertiert.
Sie sollten beachten, dass diese Schritte tatsächlich alle Felder im ausgewählten Text in regulären Text konvertieren. Da Hyperlinks mithilfe von Feldern implementiert werden, werden sie konvertiert. Aber auch alle anderen Felder in Ihren Fußnoten. Wenn Sie keine anderen Felder ändern möchten oder Hyperlinks in Fußnoten häufig bearbeiten müssen, können Sie stattdessen ein Makro verwenden.
Das folgende Makro entfernt Hyperlinks nur in den Fußnoten:
Sub RemoveFNH() Dim h As Hyperlink With ActiveDocument If .Footnotes.Count >= 1 Then With .StoryRanges(wdFootnotesStory) For Each h In .Hyperlinks h.Delete Next h End With End If End With End Sub
Beachten Sie, dass der wichtige Teil des Makros die Spezifikation der Arbeit mit dem Story-Bereich wdFootnotesStory ist. Word-Dokumente können aus mehreren Story-Bereichen bestehen, die jeweils ein anderes Element darstellen, z. B. Kopf- und Fußzeilen, Fußnoten usw. Wenn Sie Hyperlinks aus allen Teilen Ihres Dokuments entfernen möchten (dh aus allen Story-Bereichen), sind Sie es kann ein noch kürzeres Makro verwenden:
Sub RemoveAllHyperlinks() Dim r As Range Dim h As Hyperlink For Each r In ActiveDocument.StoryRanges For Each h In rng.Hyperlinks h.Delete Next h Next r End Sub
Das Makro durchläuft jeden der Story-Bereiche im Dokument und löscht jeden von ihnen, wenn sich in diesem Story-Bereich Hyperlinks befinden.
_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 beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (4636) gilt für Microsoft Word 2007, 2010, 2013 und 2016.