Wie konvertiere ich Kommentare in Fußnoten oder Endnoten in Microsoft Word?

Angenommen, Ihr Word-Dokument enthält mehrere Kommentare. Wie können Sie alle diese Kommentare gleichzeitig in Fuß- oder Endnoten konvertieren? Dieser Artikel enthält VBA-Methoden, um dies zu erreichen.

Konvertieren Sie Kommentare in Fußnoten oder Endnoten mit VBA-Code

Konvertieren Sie Kommentare in Fußnoten oder Endnoten mit VBA-Code

Mit den folgenden VBA-Codes können Sie alle Kommentare im aktuellen Dokument schnell in Fußnoten oder Endnoten konvertieren. Bitte gehen Sie wie folgt vor.

1. Öffnen Sie das Dokument mit Kommentaren, die Sie in Fußnoten oder Endnoten konvertieren möchten. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.

VBA-Code: Kommentare in Fußnoten konvertieren:

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: Kommentare in Endnoten konvertieren:

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 Taste F5 Schlüssel zum Ausführen des Codes.

Anschließend werden alle Kommentare im aktuellen Dokument basierend auf dem von Ihnen angewendeten VBA-Code sofort in Fuß- oder Endnoten konvertiert.