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:
- Jak přidat novou stránku nebo text za vysvětlivky v dokumentu Word?
- Jak vybrat všechny poznámky pod čarou v dokumentu Word?
Nejlepší nástroje pro produktivitu v kanceláři
Kutools for Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools for Word.
📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX) / Dávkový převod do PDF / Exportujte stránky jako obrázky / Tisk více souborů najednou ...
✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů / 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 / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování najdete v naší skupině pro odstranění
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Tabulka diagonálních čar / Titulek rovnice / Titulek obrázku / Titulek tabulky / Více obrázků / Objevte více v naší skupině Insert
???? Přesné výběry: Označte konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Procházejte se snadno pomocí naší Select Group
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje ...
Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.
