Hur konverterar jag kommentarer till fotnoter eller slutnoter i Microsoft Word?

Om du antar att det finns flera kommentarer i ditt Word-dokument, hur kan du konvertera alla dessa kommentarer till fotnoter eller slutnoter samtidigt? Den här artikeln innehåller VBA-metoder för att uppnå det.

Konvertera kommentarer till fotnoter eller slutnoter med VBA-kod

Konvertera kommentarer till fotnoter eller slutnoter med VBA-kod

Nedanstående VBA-koder kan hjälpa dig att snabbt konvertera alla kommentarer i det aktuella dokumentet till fotnoter eller slutnoter. Gör så här.

1. Öppna dokumentet innehåller kommentarer som du kommer att konvertera till fotnoter eller slutnoter, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modul. Kopiera sedan VBA-koden nedan till modulfönstret.

VBA-kod: Konvertera kommentarer till fotnoter:

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-kod: Konvertera kommentarer till slutnoter:

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. tryck på F5 för att köra koden.

Sedan konverteras alla kommentarer i det aktuella dokumentet till fotnoter eller slutnoter omedelbart baserat på den VBA-kod du använde.