Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ջնջել բազմաթիվ հատուկ էջեր Word փաստաթղթում:

Word փաստաթղթում կարող եք ընտրել ընթացիկ էջի բովանդակությունը, ապա սեղմել Deleteնջել ստեղնը ՝ ընթացիկ էջը հեշտությամբ ջնջելու համար: Բայց, եթե անհրաժեշտ է մեծ Word ֆայլից բազմաթիվ էջեր հեռացնել, ինչպե՞ս կարող եք այն արագ լուծել:

Documentնջեք մի շարք էջեր Word փաստաթղթում Go To հնարավորությամբ

VBA կոդով Word փաստաթղթում ջնջեք բազմաթիվ հատուկ էջեր


Documentնջեք մի շարք էջեր Word փաստաթղթում Go To հնարավորությամբ

Եթե ​​ցանկանում եք Word փաստաթղթից ջնջել մի շարք անընդմեջ էջեր, Go To հնարավորությունը կարող է ձեզ լավություն բերել:

1, Գործարկել Word փաստաթուղթը, որը ցանկանում եք ջնջել էջերը:

2, Դրանից հետո սեղմեք F5 բանալին բացելու համար Գտնել եւ փոխարինել երկխոսության տուփ, տակ Գնալ էջանշանը, սեղմեք էջ է Գնացեք ինչին ցուցակի տուփը, ապա մուտքագրեք մեկնարկի էջի համարը, որից ուզում եք ջնջել, և սեղմել Մտնել կոնկրետ էջ անցնելու բանալին, տես նկարի նկարը.

փաստաթուղթը ջնջել բազմաթիվ էջեր 1

2, Հետո փակիր սա Գտնել եւ փոխարինել երկխոսության տուփ և սեղմել F8 միացնել Ընդլայնել ռեժիմը.

3, Շարունակեք սեղմել F5 բանալին բացելու համար Գտնել եւ փոխարինել երկխոսություն, այս անգամ մուտքագրեք վերջնական էջի համարը, որը ցանկանում եք ջնջել, և այնուհետև սեղմել Մտնել բանալի. Միանգամից ընտրվել են 15-ից 20-ի բոլոր էջերը: Տեսեք,

փաստաթուղթը ջնջել բազմաթիվ էջեր 2

4, Վերջապես, սեղմեք ջնջել ստեղն անմիջապես այս էջերը միանգամից ջնջելու համար:


VBA կոդով Word փաստաթղթում ջնջեք բազմաթիվ հատուկ էջեր

Word ֆայլում մի քանի հատուկ էջեր ջնջելու համար, որոնք ոչ հաջորդական են, հետևյալ VBA կոդը կարող է օգնել ձեզ:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA կոդ. Word ֆայլում ջնջեք բազմաթիվ հատուկ էջեր.

Sub DeletePagesInDoc()
    Dim xRange As Range
    Dim xPage As String
    Dim xDoc As Document
    Dim xArr
    Dim I, xSplitCount As Long
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    xPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "KuTools for Word", "")
    xArr = Split(xPage, ",")
    xPageCount = UBound(xArr)
    For I = xPageCount To 0 Step -1
        Selection.GoTo wdGoToPage, wdGoToAbsolute, xArr(I)
        xDoc.Bookmarks("\Page").Range.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3, Հետո, սեղմեք F5 Այս կոդը գործարկելու համար ստեղն է, և դուրս է գալիս հուշման տուփ ՝ հիշեցնելու համար, որ մուտքագրեք էջի համարները, որոնք ցանկանում եք ջնջել, առանձնացրեք էջի համարները ստորակետով, տեսեք ՝

փաստաթուղթը ջնջել բազմաթիվ էջեր 3

4, Եվ հետո, կտտացրեք OK կոճակը, ձեր նշած բոլոր էջերը միանգամից ջնջվել են:


Ընտրեք մի քանի առանձնահատուկ էջեր և այնուհետև ջնջեք դրանք.

Եթե ​​ցանկանում եք ջնջել մի քանի առանձնահատուկ էջեր Word- ի մեծ փաստաթղթից, Kutools բառի համար's Ընտրեք Էջեր առանձնահատկությունը կարող է օգնել ձեզ ընտրել նախ և առաջ անհրաժեշտ էջերը ՝ ըստ ձեզ անհրաժեշտության, ապա սեղմել ջնջել բանալին դրանք միանգամից ջնջելու համար:

փաստաթուղթը ջնջել բազմաթիվ էջեր 4

Kutools բառի համարավելի քան 100 հարմար Word հավելվածներով, 60 օրվա ընթացքում առանց սահմանափակումների անվճար փորձեք: Սեղմեք ՝ հիմա ներբեռնելու և անվճար փորձարկման համար:

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ciao, invece per eliminare "rapidamente" in un documento di svariate pagine (circa 100) più fogli vuoti non consecutivi è possibile?
Esiste un procedimento per eliminare i fogli vuoti, senza doverli andare a ricercare.

Grazie.
This comment was minimized by the moderator on the site
thanks. from where you learn the vba
This comment was minimized by the moderator on the site
Thanks for very helpful solutions!!!!!!!!!!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations