Alle eindnoten converteren naar platte tekst in Word

Het omzetten van eindnoten naar tekst is handig om ze te bewerken of te verwijderen. Als u bijvoorbeeld de eindnoten tegelijk met de andere gewone tekst wilt selecteren, staat Word dat niet toe. Hoe kun je het gemakkelijk doen? Deze tutorial laat je verschillende methoden zien voor het converteren van eindnoten naar platte tekst.

Converteer eindnoten handmatig naar tekst

Converteer eindnoten naar tekst met VBA

Zet eindnoten om naar tekst met Kutools voor Word

Converteer eindnoten handmatig naar tekst

1. Plaats de cursor op de plaats van de eindnoten en druk op Ctrl + A om alle eindnoten uit het document te selecteren. Zie screenshot:

2. druk op Ctrl + C om de eindnoten te kopiëren.

3. druk op Ctrl + End om de cursor naar het einde van het hele document en vóór de eindnoten te verplaatsen.

4. druk op Ctrl + V om de eindnoot aan het einde van het document te plakken. De volgorde van de eindnoten blijft intact, maar de geplakte eindnoten zijn gewijzigd. Zie screenshot:

5. Vervang alle nummer 1 voor de tekst handmatig door de originele nummerlijst.

Converteer eindnoten naar tekst met VBA

In woord kunt u ook eindnoten naar platte tekst converteren met VBA-code.

1: Druk op Alt + F11 om een ​​te openen Microsoft Visual Basic for Applications-venster;

2: Klik Module oppompen van Invoegen tab, kopieer en plak de volgende VBA-code in het Module venster;

3: Klik lopen knop of druk op F5 om de VBA toe te passen.

De VBA die eindnoten naar tekst omzet:

Sub convertendnote ()
Dim aendnote als Endnote
Voor elke aendnote in ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Volgende aendnote
Voor elke aendnote in ActiveDocument.Endnotes
aendnote.Referentie.Verwijderen
Volgende aendnote
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Met Selection.Find.Replacement.Font
.Superscript = Waar
Eindigt met
Met Selection.Find
.Text = "(a) ([0-9] {1,}) (a)"
.Replacement.Text = "\ 2" v .Forward = Waar
.Wrap = wdFindVerdergaan
.Format = Waar
.MatchWildcards = Waar
Eindigt met
Selection.Find.Execute Replace: = wdReplaceAll
End Sub

Opmerking: U kunt het begin en het einde van de macro aanpassen aan uw wensen.

Zet eindnoten om naar tekst met Kutools voor Word

Voor die nieuwe computerhanden is VBA te complex om te hanteren. Maar met Kutools for Word geïnstalleerd, kunt u snel alle eindnoten naar tekst converteren met Convert Endnotes to Text hulpprogramma met één klik.

Na het installeren van Kutools voor Word, doe het als volgt:（Gratis download Kutools voor Word nu!)

1. Pas dit hulpprogramma toe door op te klikken Kutools > Converteren > Convert Endnotes to Text. Zie screenshot:

2. Na het klikken op Convert Endnotes to Text, ziet u het resultaat zoals de onderstaande schermafbeeldingen laten zien:

  Demo: converteer alle eindnoten naar tekst in woord

Relatief artikel:

• Converteer meerdere tabellen naar tekst in Word
• Converteer vergelijking naar afbeelding in Word

Bladeren en bewerken met tabbladen in meerdere Word-documenten / Excel-werkmappen als Firefox, Chrome, Internet Explore 10!

U bent wellicht bekend om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen de webpagina's te schakelen door eenvoudig op de overeenkomstige tabbladen te klikken. Hier ondersteunt Office Tab vergelijkbare verwerking, waarmee u door meerdere Word-documenten of Excel-werkmappen kunt bladeren in één Word-venster of Excel-venster, en gemakkelijk tussen deze documenten kunt schakelen door op hun tabbladen te klikken. Klik voor een gratis proefversie van Office Tab!