Ինչպե՞ս Microsoft Word- ում մեկնաբանությունները վերածել տողատակի կամ տողատակի:
Ենթադրելով, որ ձեր Word փաստաթղթում կան բազմաթիվ մեկնաբանություններ, ինչպե՞ս կարող եք այս բոլոր մեկնաբանությունները միաժամանակ վերածել տողատակի կամ տողատակի: Այս հոդվածը տալիս է VBA մեթոդներ դրան հասնելու համար:
Մեկնաբանությունները վերափոխեք տողատակի կամ վերջաբանի VBA կոդով
Մեկնաբանությունները վերափոխեք տողատակի կամ վերջաբանի VBA կոդով
Ստորև ներկայացված VBA կոդերը կօգնեն ձեզ արագ վերափոխել ընթացիկ փաստաթղթի բոլոր մեկնաբանությունները տողատակեր կամ տողատակի: Խնդրում եմ, արեք հետևյալ կերպ.
1. Բացեք փաստաթուղթը պարունակում է մեկնաբանություններ, որոնք կվերածեք տողատակի կամ տողատակի, սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլ. Դրանից հետո VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:
VBA կոդ. Մեկնաբանությունները վերափոխիր տողատակի:
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 կոդ. Մեկնաբանությունները վերափոխեք վերջաբանի.
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. Սեղմեք F5 ծածկագիրը գործելու համար:
Այնուհետև ընթացիկ փաստաթղթի բոլոր մեկնաբանությունները անմիջապես վերածվում են տողատակի կամ վերջաբանի `հիմնվելով ձեր կիրառած VBA կոդի վրա:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս Word փաստաթղթում վերջաբաններից հետո ավելացնել նոր էջ կամ տեքստ:
- Ինչպե՞ս ընտրել Word- ի փաստաթղթում առկա բոլոր տողատակումները:
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Ավելի շատ հեռացնելու գործիքների համար գնացեք դեպի Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրել խումբ...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել Հատուկ էջեր / Աղյուսակներ / Ձեւավորում / Վերնագիր պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Նավարկեք դեպի Ցանկացած վայր / Ավտոմատ տեղադրում կրկնվող տեքստ / Փոխարկել Փաստաթղթի Windows-ի միջև / 11 Փոխակերպման գործիքներ...