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 Text
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:
2. Nach dem Klicken Convert Endnotes to TextDas Ergebnis sehen Sie wie folgt: Die folgenden Screenshots zeigen:
Demo: Konvertieren Sie alle Endnoten in Texttexte
Relativer Artikel:
- Konvertieren Sie mehrere Tabellen in Text in Word
- Konvertieren Sie die Gleichung in ein Bild in Word
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. |