Hoe converteert u alle eindnoten naar platte tekst in Word?

Eindnoten in Word worden meestal gebruikt voor citaten of aanvullende referenties, maar er zijn situaties waarin u ze moet converteren naar gewone tekst voor eenvoudiger bewerking of opmaak. Elke eindnoot handmatig kopiëren en plakken kan tijdrovend zijn, vooral bij lange documenten. In deze handleiding leest u drie efficiënte manieren om eindnoten te converteren naar Platte tekst:

Eindnoten Omzetten naar Tekst handmatig

Eindnoten Omzetten naar Tekst met Kutools voor Word

Eindnoten Omzetten naar Tekst met VBA

---

Eindnoten Omzetten naar Tekst handmatig

Volg deze stappen om eindnoten handmatig te converteren naar Platte tekst in Word:

1. Plaats de cursor ergens in het eindnoten-gedeelte en druk vervolgens op Ctrl + A om alle eindnoten in het document te selecteren.
2. Druk op Ctrl + C om de geselecteerde eindnoten te kopiëren.
3. Druk op Ctrl + End om de cursor naar het einde van het document te verplaatsen, net vóór het eindnotengedeelte.
4. Druk op Ctrl + V om de gekopieerde eindnoten aan het einde van het document te plakken. De eindnoten behouden hun volgorde, maar worden geconverteerd naar platte tekst.

   

5. Vervang handmatig het cijfer „1” vóór elke geplakte eindnoot, indien nodig, door de oorspronkelijke nummering.

---

Eindnoten Omzetten naar Tekst gemakkelijk met Kutools voor Word

Eindnoten handmatig omzetten naar tekst in Word kan tijdrovend zijn, vooral voor beginners die niet bekend zijn met VBA. Met Kutools voor Word voert u deze taak echter in één klik uit dankzij het hulpprogramma Convert Endnotes to Text.

1. Klik op Kutools>Converteren>Convert Endnotes to Text.

   

Zodra u op Convert Endnotes to Textklikt, worden de eindnoten in uw document direct geconverteerd naar tekst, zoals te zien is in onderstaande schermafbeeldingen:

---

Eindnoten Omzetten naar Tekst met VBA

In Word kunt u eindnoten ook converteren naar platte tekst met behulp van VBA-code. Volg deze stappen:

1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Modulevia het tabblad Invoegen, en kopieer en plak vervolgens de volgende VBA-code in het Module-venster.

   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. Klik op de knop Uitvoeren of druk op F5 om de VBA-code uit te voeren.

Demo: Converteer alle eindnoten snel naar tekst in Word

---

Gerelateerde artikelen:

• Meerdere Tabellen naar tekst converteren in Word
• Vergelijking omzetten naar afbeelding in Word

---