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

Jak převést komentáře na poznámky pod čarou nebo vysvětlivky v aplikaci Microsoft Word?

Za předpokladu, že ve vašem dokumentu Wordu je více komentářů, jak můžete převést všechny tyto komentáře na poznámky pod čarou nebo vysvětlivky současně? Tento článek poskytuje metody VBA, jak toho dosáhnout.

Převeďte komentáře na poznámky pod čarou nebo vysvětlivky pomocí kódu VBA


Převeďte komentáře na poznámky pod čarou nebo vysvětlivky pomocí kódu VBA

Níže uvedené kódy VBA vám pomohou rychle převést všechny komentáře v aktuálním dokumentu na poznámky pod čarou nebo vysvětlivky. Postupujte prosím následovně.

1. Otevřete dokument obsahující komentáře, které převedete na poznámky pod čarou nebo vysvětlivky, stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna modulu.

Kód VBA: Převést komentáře na poznámky pod čarou:

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

Kód VBA: Převést komentáře na vysvětlivky:

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. zmáčkni F5 klíč ke spuštění kódu.

Poté se všechny komentáře v aktuálním dokumentu okamžitě převedou na poznámky pod čarou nebo vysvětlivky na základě použitého kódu VBA.


Související články:


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (1)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
To je úžasné. Díky moc!!! opravdu užitečné.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění