Wie wandelt man Kommentare in Microsoft Word in Fußnoten oder Endnoten um?
AutorSiluvia•Änderungsdatum
Angenommen, Ihr Word-Dokument enthält mehrere Kommentare – wie können Sie diese alle gleichzeitig in Fußnoten oder Endnoten umwandeln? Dieser Artikel bietet Ihnen praktische VBA-Methoden, um genau das zu erreichen.
Konvertieren von Kommentaren in Fußnoten oder Endnoten mit VBA-Code
Die folgenden VBA-Codes helfen Ihnen, alle Kommentare im aktuellen Dokument schnell in Fußnoten oder Endnoten umzuwandeln. Gehen Sie dazu wie folgt vor:
1. Öffnen Sie das Dokument mit den Kommentaren, die Sie in Fußnoten oder Endnoten umwandeln möchten, und drücken Sie die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie anschließend den unten stehenden VBA-Code in das Modulfenster.
VBA-Code: Konvertieren von Kommentaren in Fußnoten:
Sub ConvertCommentsToFootnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
VBA-Code: Konvertieren von Kommentaren in Endnoten:
Sub ConvertCommentsToEndnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
3. Drücken Sie die F5-Taste, um den Code auszuführen.
Dann werden alle Kommentare im aktuellen Dokument sofort entsprechend dem verwendeten VBA-Code in Fußnoten oder Endnoten umgewandelt.
Mehr erreichen in kürzerer Zeit mit KI-gestütztem Kutools für Word
Kutools für Word ist weit mehr als nur eine Sammlung von Werkzeugen – es ist eine intelligente Lösung, speziell entwickelt, um Ihre Produktivität spürbar zu steigern. Mit KI-gestützten Funktionen und den wichtigsten Tools ermöglicht Ihnen Kutools, in kürzerer Zeit mehr zu erreichen:
Fassen Sie Inhalte prägnant zusammen, formulieren Sie sie neu, verfassen Sie originelle Texte und übersetzen Sie sofort.
Überprüfen Sie Ihre Texte in Echtzeit – mit intelligenten Vorschlägen zu Grammatik, Zeichensetzung und Stil, während Sie schreiben.
Formulieren und übersetzen Sie Inhalte neu, ohne Layout, Stil oder Struktur zu verändern.
Übersetzen Sie Ihre Inhalte mühelos in über 40 Sprachen und erweitern Sie so Ihre globale Reichweite.
Erhalten Sie sofortige Unterstützung und intelligente Einblicke basierend auf den Inhalten Ihres aktuellen Dokuments.
Fragen Sie einfach, wie eine Aufgabe – etwa das Entfernen eines Abschnittsumbruchs – durchgeführt wird, und die KI führt Sie Schritt für Schritt durch den Prozess oder erledigt sie direkt für Sie.
Schwärzen Sie sensible oder vertrauliche Informationen innerhalb von Sekunden – für absolute Privatsphäre.
Alle Werkzeuge funktionieren nahtlos in Word und sind jederzeit griffbereit.
Erstellen, verbessern, übersetzen und fassen Sie Dokumente mühelos zusammen – und sichern Sie sie ganz einfach.
Verbessern Sie Grammatik, Klarheit und Tonfall in Echtzeit – direkt beim Schreiben.
Formulieren und übersetzen Sie Inhalte neu, ohne Layout oder Formatierung zu verändern.
Fragen Sie einfach, wie eine Aufgabe – etwa das Entfernen eines Abschnittsumbruchs – durchgeführt wird, und die KI führt Sie Schritt für Schritt durch den Prozess oder erledigt sie direkt für Sie.
Alle Werkzeuge funktionieren nahtlos in Word und sind jederzeit griffbereit.
🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!
