Přejít k hlavnímu obsahu

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

Autor: Siluvia Naposledy změněno: 2024-08-29

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.

Okno VBA s vloženým modulem

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:

Udělejte více za méně času s AI vylepšenými Kutools pro Word

Kutools for Word není jen sada nástrojů – je to chytré řešení navržené ke zvýšení vaší produktivity. Díky schopnostem řízeným umělou inteligencí a nejzákladnějším funkcím vám Kutools pomůže dosáhnout více za kratší dobu:

  • Okamžitě shrnujte, přepisujte, sestavujte a překládejte obsah.
  • Během psaní kontrolujte text v reálném čase pomocí návrhů gramatiky, interpunkce a stylu.
  • Přeformulujte a překládejte obsah při zachování rozvržení, stylu a struktury.
  • Přeložte snadno svůj obsah do více než 40 jazyků a rozšiřte svůj dosah po celém světě.
  • Získejte okamžitou pomoc a inteligentní statistiky založené na aktuálním obsahu dokumentu.
  • Zeptejte se, jak dokončit úkol – například odstranit konce oddílů – a AI vás povede nebo to udělá za vás.
  • Reagujte citlivé nebo důvěrné informace během několika sekund, abyste zajistili úplné soukromí.
  • Všechny nástroje fungují bez problémů ve Wordu, vždy na dosah.
  • Vytvářejte, upravujte, překládejte, sumarizujte a zabezpečte dokumenty bez námahy.
  • Zlepšete gramatiku, srozumitelnost a tón při psaní v reálném čase.
  • Přeformulujte a překládejte obsah beze změn rozvržení nebo formátování.
  • Zeptejte se, jak dokončit úkol – například odstranit konce oddílů – a AI vás povede nebo to udělá za vás.
  • Všechny nástroje fungují bez problémů ve Wordu, vždy na dosah.
Další informace o Kutools pro Word Stáhnout nyní
Funkce Kutools pro Word

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Asistent AI / Asistent v reálném čase / Super Polish (Zachovat formát) / Super překlad (zachovat formát) / Redakce AI / Korektura AI...

📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF...

Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

???? Podporuje 40+ jazykůPoužívejte Kutools ve vašem preferovaném jazyce – podporuje angličtinu, španělštinu, němčinu, francouzštinu, čínštinu a více než 40 dalších!

Karty Kutools a Kutools Plus na pásu karet aplikace Word
???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????
 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word