Stephen hat ein großes Dokument (über 300 Seiten), das eine große Anzahl von Hyperlinks im Haupttext enthält. Das Dokument enthält auch Fußnoten. Jeder der Hyperlinks muss in eine Fußnote konvertiert werden, wodurch (natürlich) die Anzahl der Fußnoten im Dokument erhöht wird.

Der Anstieg ist kein Problem. Das Problem besteht darin, einen schnellen Weg zu finden, um all diese Hyperlinks in Fußnoten umzuwandeln. Stephen fragt sich, ob dies mit einem Makro möglich ist.

Dies kann tatsächlich mit einem Makro erfolgen. Tatsächlich ist das Makro möglicherweise einfacher als Sie sich vorstellen können. Hier ist ein Beispiel:

Sub LinksToFootnotes()

Dim hLink As Hyperlink     Dim rTemp As Range     Dim J As Integer

For Each hLink In ActiveDocument.Hyperlinks         Set rTemp = hLink.Range

' Create footnote         ActiveDocument.Footnotes.Add Range:=rTemp, _           Text:=rTemp.Text

' Delete possible leading space         rTemp.Collapse         rTemp.MoveStart Count:=-1         If rTemp.Text = " " Then rTemp.Delete     Next hLink

' Delete hyperlinks     For J = ActiveDocument.Hyperlinks.Count To 1 Step -1         ActiveDocument.Hyperlinks(J).Range.Delete     Next End Sub

In diesem Beispiel werden zwei Durchgänge durch alle Hyperlinks im Dokument ausgeführt.

Während des ersten Durchgangs werden die Fußnoten erstellt und während des zweiten Durchgangs werden die Hyperlinks gelöscht. Beachten Sie auch den Teil des Codes, der prüft, ob vor dem Hyperlink ein Leerzeichen steht. Dies geschieht, damit, falls vorhanden, dieses Leerzeichen gelöscht werden kann, um die resultierende Fußnotennummer direkt neben irgendetwas vor diesem Leerzeichen zu platzieren. (Mit anderen Worten, wenn dies nicht getan würde, ist es eine gute Wette, dass jede Fußnotennummer ein Leerzeichen vor sich hat.)

Dies wirft ein weiteres Problem mit dem Makro auf, das Sie kennen sollten: Sie müssen lediglich die Fußnoten erstellen und die Hyperlinks löschen. Wenn der ursprüngliche Hyperlink Informationen enthält (z. B. Klammern, Kommas oder Punkte), bleiben diese Zeichen im Dokument. Dies bedeutet, dass Sie nach dem Ausführen des Makros einen manuellen Durchlauf durch Ihr Dokument durchführen sollten, um sicherzustellen, dass die möglichen Fremdzeichen so bearbeitet werden, wie Sie es möchten.

Beachten Sie schließlich, dass die in den Fußnoten platzierten Hyperlinks keine aktiven Hyperlinks sind, sondern nur Text. Dies ist jedoch kein großes Problem, da beim Erstellen von Dokumenten mit Fußnoten normalerweise nur einfacher Text gewünscht wird.

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

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13739) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.