Hogyan lehet a megjegyzéseket konvertálni lábjegyzetekké vagy végjegyzetekké a Microsoft Wordben?
Ha feltételezzük, hogy a Word-dokumentumban több megjegyzés található, hogyan lehet ezeket a megjegyzéseket egyszerre lábjegyzetekké vagy végjegyzetekké alakítani? Ez a cikk VBA módszereket ismertet az elérésére.
Megjegyzések konvertálása lábjegyzetekké vagy végjegyzetekké VBA kóddal
Megjegyzések konvertálása lábjegyzetekké vagy végjegyzetekké VBA kóddal
Az alábbi VBA-kódok segítségével gyorsan átalakíthatja az aktuális dokumentumban szereplő összes megjegyzést lábjegyzetekké vagy végjegyzetekké. Kérjük, tegye a következőket.
1. Nyissa meg a lábjegyzetekké vagy végjegyzetekké alakított megjegyzéseket tartalmazó dokumentumot, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modult. Ezután másolja a VBA kód alatt a Modul ablakba.
VBA kód: Megjegyzések konvertálása lábjegyzetekké:
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
VBA kód: Megjegyzések konvertálása végjegyzetekké:
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. megnyomni a F5 gombot a kód futtatásához.
Ezután az aktuális dokumentumban található összes megjegyzés azonnal lábjegyzetekké vagy végjegyzetekké alakul át az Ön által alkalmazott VBA-kód alapján.
Kapcsolódó cikkek:
- Hogyan adhatunk új oldalt vagy szöveget a végjegyzetek után egy Word dokumentumba?
- Hogyan válasszuk ki az összes lábjegyzetet egy Word-dokumentumban?
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...