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.

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í
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - 100+ nástrojů pro Word