Sådan konverteres kommentarer til fodnoter eller slutnoter i Microsoft Word?

Antag, at der er flere kommentarer i din Word dokument, hvordan kan du konvertere alle disse kommentarer til fodnoter eller slutnoter på samme tid? Denne artikel giver VBA-metoder til at opnå det.

Konverter kommentarer til fodnoter eller slutnoter med VBA-kode

Konverter kommentarer til fodnoter eller slutnoter med VBA-kode

Nedenstående VBA-koder kan hjælpe dig med hurtigt at konvertere alle kommentarer i det aktuelle dokument til fodnoter eller slutnoter. Gør som følger.

1. Åbn dokumentet indeholder kommentarer, du vil konvertere til fodnoter eller slutnoter, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Modul. Kopier derefter under VBA-koden i modulvinduet.

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

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. Tryk på F5 nøgle for at køre koden.

Derefter konverteres alle kommentarer i det aktuelle dokument til fodnoter eller slutnoter med det samme baseret på den VBA-kode, du har anvendt.

Relaterede artikler:

• Sådan tilføjer du en ny side eller tekst efter slutnoter i en Word dokumentere?
• Sådan vælger du alle fodnoter i en Word dokumentere?

---

Anbefales Word Produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid

• Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
• Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
• Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
• Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
• Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...

Læs mere Hent nu Køb