Direkt zum Inhalt

So konvertieren Sie alle Endnoten in Word in einfachen Text

Das Konvertieren von Endnoten in Text ist praktisch, damit Sie sie bearbeiten oder löschen können. Wenn Sie beispielsweise die Endnoten mit dem anderen regulären Text gleichzeitig auswählen möchten, können Sie dies in Word nicht tun. Wie können Sie es einfach erledigen? Dieses Tutorial zeigt Ihnen verschiedene Methoden zum Konvertieren von Endnoten in einfachen Text.

Konvertieren Sie Endnoten manuell in Text

Konvertieren Sie Endnoten mit VBA in Text

Konvertieren Sie Endnoten mit Kutools for Word in Textgute Idee3


Konvertieren Sie Endnoten manuell in Text

1. Stellen Sie den Cursor auf die Endnoten und drücken Sie Strg + A um alle Endnoten aus dem Dokument auszuwählen. Siehe Screenshot:

2. Drücken Sie Strg + C um die Endnoten zu kopieren.

3. Drücken Sie Strg + Ende Bewegen Sie den Cursor an das Ende des gesamten Dokuments und vor die Endnoten.

4. Drücken Sie Strg + V um die Endnote an das Ende des Dokuments einzufügen. Die Reihenfolge der Endnoten bleibt erhalten, die eingefügten Endnoten wurden jedoch geändert. Siehe Screenshot:

5. Ersetzen Sie die Nummer 1 vor dem Text manuell durch die ursprüngliche Nummernliste.


Konvertieren Sie Endnoten mit VBA in Text

Mit anderen Worten, Sie können Endnoten auch in einfachen Text mit VBA-Code konvertieren.

1: Drücken Sie Alt + F11 öffnen Microsoft Visual Basic für Applikationen-Fenster;

2: Klicken Sie auf Modul von Insert Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in die ein Modul Fenster;

3: Klicken Sie auf Führen Sie Taste oder drücken F5 die VBA anwenden.

Die VBA, die Endnoten in Text konvertiert:

Sub convertendnote ()
Aendnote als Endnote dimmen
Für jede Endnote in ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Nächste Endnote
Für jede Endnote in ActiveDocument.Endnotes
aendnote.Referenz.Löschen
Nächste Endnote
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Mit Selection.Find.Replacement.Font
.Hochgestellt = Wahr
Ende mit
Mit Selection.Find
.Text = "(a) ([0-9] {1,}) (a)"
.Replacement.Text = "\ 2" v .Forward = Wahr
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
Ende mit
Selection.Find.Execute Replace: = wdReplaceAll
End Sub

Hinweis: Sie können den Anfang und das Ende des Makros ändern, um Ihren Wünschen zu entsprechen.


Konvertieren Sie Endnoten mit Kutools for Word in Text

Für diese Computerhände ist VBA zu komplex, um damit umzugehen. Aber mit Kutools for Word installiert, können Sie schnell alle Endnoten in Text mit konvertieren Convert Endnotes to Text Dienstprogramm mit einem Klick.

Kutools for Word, mit mehr als  praktische Funktionen, erleichtert Ihre Arbeit. 

Nach der Installation Kutools for Word, bitte gehen Sie wie folgt vor:(Kutools for Word jetzt kostenlos herunterladen!)

1. Bitte wenden Sie dieses Dienstprogramm an, indem Sie auf klicken Kutoolen > Konvertieren > Convert Endnotes to Text. Siehe Screenshot:

doc kutools konvertiert Endnoten in Text 1

2. Nach dem Klicken Convert Endnotes to TextDas Ergebnis sehen Sie wie folgt: Die folgenden Screenshots zeigen:




Relativer Artikel:


Durchsuchen und Bearbeiten mehrerer Word-Dokumente / Excel-Arbeitsmappen mit Registerkarten wie Firefox, Chrome, Internet Explore 10!

Möglicherweise kennen Sie mehrere Webseiten in Firefox / Chrome / IE und wechseln zwischen ihnen, indem Sie einfach auf die entsprechenden Registerkarten klicken. Hier unterstützt Office Tab eine ähnliche Verarbeitung, mit der Sie mehrere Word-Dokumente oder Excel-Arbeitsmappen in einem Word- oder Excel-Fenster durchsuchen und einfach durch Klicken auf deren Registerkarten zwischen diesen wechseln können.
Klicken Sie hier für eine kostenlose Testversion von Office Tab!

Durchsuchen Sie mehrere Word-Dokumente in einem Fenster als Firefox
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank for the macro! Super helpful!

(Fyi - you have a "v" where there should be a linefeed by ".Forward", but you saved me a couple of hours of figuring out writing my own. Awesome!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations