Note: The other languages of the website are Google-translated. Back to English

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.


Relaterade artiklar:


Rekommenderade Word-produktivitetsverktyg

 

Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
Sortera kommentarer efter
Kommentarer (1)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är otroligt. Tack så mycket!!! riktigt användbart.
James
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0  Tecken
Föreslagna platser