So konvertieren Sie alle Endnoten in Word in Klartext

Endnoten in Word werden üblicherweise für Zitierungen oder zusätzliche Referenzen verwendet, doch gelegentlich müssen sie in regulären Text umgewandelt werden, um Bearbeitung oder Formatierung zu vereinfachen. Das manuelle Kopieren und Einfügen jeder einzelnen Endnote kann insbesondere bei langen Dokumenten zeitaufwendig sein. In dieser Anleitung werden Ihnen drei effiziente Methoden zur Umwandlung von Endnoten in Klartext vorgestellt:

Endnoten in Text umwandeln manuell

Endnoten in Text umwandeln mit Kutools für Word

Endnoten in Text umwandeln mit VBA

---

Endnoten in Text umwandeln manuell

Führen Sie die folgenden Schritte aus, um Endnoten manuell in Word in Klartext umzuwandeln:

1. Platzieren Sie den Cursor an einer beliebigen Stelle im Endnotenbereich und drücken Sie anschließend Strg + A, um alle Endnoten im Dokument auszuwählen.
2. Drücken Sie Strg + C, um die ausgewählten Endnoten zu kopieren.
3. Drücken Sie Strg + Ende, um den Cursor direkt vor dem Endnotenbereich ans Ende des Dokuments zu bewegen.
4. Drücken Sie Strg + V, um die kopierten Endnoten ans Ende des Dokuments einzufügen. Die Endnoten behalten dabei ihre Reihenfolge bei, werden aber in Klartext umgewandelt.

   

5. Ersetzen Sie bei Bedarf die Zahl „1“ vor jeder eingefügten Endnote manuell durch ihre ursprüngliche Nummerierung.

---

Endnoten in Text umwandeln einfach mit Kutools für Word

Das manuelle Umwandeln von Endnoten in Text in Word kann zeitaufwendig sein – besonders für Anwender, die mit VBA nicht vertraut sind. Mit Kutools für Word erledigen Sie diese Aufgabe jedoch mit nur einem Klick mithilfe des Convert Endnotes to Text-Tools.

1. Klicken Sie auf Kutools>Konvertieren>Convert Endnotes to Text.

   

Sobald Sie auf Convert Endnotes to Textklicken, werden die Endnoten in Ihrem Dokument sofort in Text umgewandelt, wie in den folgenden Abbildungen dargestellt:

---

Endnoten in Text umwandeln mit VBA

In Word können Sie Endnoten auch mithilfe von VBA-Code in Klartext umwandeln – so geht’s:

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Menü Einfügenauf Modul, und kopieren Sie anschließend den folgenden VBA-Code in das geöffnete Modul-Fenster.

   Sub convertendnote()
   Dim aendnote As Endnote
   For Each aendnote In ActiveDocument.Endnotes
   ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
   & vbTab & aendnote.Range
   aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
   Next aendnote
   For Each aendnote In ActiveDocument.Endnotes
   aendnote.Reference.Delete
   Next aendnote
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find.Replacement.Font
   .Superscript=True
   End With
   With Selection.Find
   .Text="(a)([0-9]{1,})(a)"
   .Replacement.Text="\2"
   .Forward=True
   .Wrap=wdFindContinue
   .Format=True
   .MatchWildcards=True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   End Sub

3. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie F5, um den VBA-Code auszuführen.

Demo: Alle Endnoten schnell in Text umwandeln in Word

---

Verwandte Artikel:

• Mehrere Tabellen in Text umwandeln in Word konvertieren
• Gleichung in Bild umwandeln in Word

---