Ինչպե՞ս ընտրել կամ ջնջել տեքստը Word- ի երկու էջանիշերի միջև:
Գիտե՞ք ինչպես ընտրել կամ ջնջել Word- ի փաստաթղթում պարունակվող երկու էջանիշների բովանդակությունը: Այս հոդվածը ձեզ ցույց կտա դրա հետ վարվելու մեթոդներ:
Ընտրեք / ջնջեք տեքստ VBA- ի երկու էջանիշերի միջև
Ընտրեք / ջնջեք տեքստ VBA- ի երկու էջանիշերի միջև
Ենթադրելով, որ ձեր փաստաթղթում կա երկու էջանիշ, ինչպես ցույց է տրված նկարներից ներքևում, դուք կարող եք ընտրել կամ ջնջել բոլոր բովանդակությունը այս երկու էջանիշերի միջև հետևյալ VBA կոդով:
1. Փաստաթղթում սեղմեք կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք ներքևի կոդը Մոդուլի պատուհանում:
Երկու էջանիշների միջեւ տեքստեր ընտրելու կամ ջնջելու համար խնդրում ենք օգտագործել այս ծածկագիրը.
VBA կոդ. Ընտրեք տեքստը Word- ում նշված երկու էջանիշների միջև.
Sub SelectBetweenBookmarks()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Select
End Sub
VBA կոդ. Word- ում ջնջեք տեքստը երկու նշված էջանիշների միջև.
Sub DeleteBetweenBookmarks ()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Delete
End Sub
3. Սեղմեք F5 ծածկագիրը գործելու համար:
4. Առաջինում Kutools բառի համար երկխոսության տուփ, մուտքագրեք մեկնարկի էջանիշի անունը տեքստի տուփի մեջ և կտտացրեք OK.
5. Երկրորդում Kutools բառի համար երկխոսության տուփ, մուտքագրեք վերջի էջանիշը և կտտացրեք OK, Տեսեք,
ՆշումԵթե ձեր մուտքագրած էջանշանի անունը փաստաթղթում գոյություն չունի, կհայտնվի մեկ այլ Kutools for Word երկխոսության տուփ ՝ հիշեցնելու համար, որ դուք ճիշտը մուտքագրեք:
Այնուհետև նշված էջանիշների միջև եղած բոլոր բովանդակությունն անմիջապես ընտրվում կամ ջնջվում է: Տեսեք սքրինշոթեր:
Ընտրեք տեքստեր երկու էջանիշների միջև.
Bookնջել տեքստերը երկու էջանիշների միջև:
Գրասենյակի արտադրողականության լավագույն գործիքները
Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!
🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն / Վերաշարադրել տեքստը / Ամփոփել փաստաթղթերը / Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում
📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում / Միաձուլեք փաստաթղթերը / Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...) / Խմբաքանակի փոխակերպում PDF-ի / Արտահանել էջերը որպես պատկերներ / Միանգամից մի քանի ֆայլ տպեք...
✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով / Չափափոխել բոլոր նկարները / Փոխադրել աղյուսակի տողերը և սյունակները / Աղյուսակը տեքստի վերափոխել...
🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ / Բաժնի ընդմիջումներ / Բոլոր վերնագրերը / Տեքստային տուփեր / Hyperlinks / Ավելի շատ հեռացնելու գործիքների համար գնացեք դեպի Հեռացնել խումբը...
➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ / Նշեք վանդակները / Ռադիո կոճակներ / QR Code / Շտրիխ կոդ / Անկյունագծային աղյուսակ / Հավասարության վերնագիր / Նկարի վերնագիր / Աղյուսակի վերնագիր / Բազմաթիվ նկարներ / Բացահայտեք ավելին Տեղադրել խումբ...
🔍 Ճշգրիտ ընտրանքներ: Մատնանշել Հատուկ էջեր / Աղյուսակներ / Ձեւավորում / Վերնագիր պարբերություններ / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...
⭐ Աստղերի բարելավումներ: Նավարկեք դեպի Ցանկացած վայր / Ավտոմատ տեղադրում կրկնվող տեքստ / Փոխարկել Փաստաթղթի Windows-ի միջև / 11 Փոխակերպման գործիքներ...