Ինչպես արագորեն ջնջել ձեր Word փաստաթղթում առկա բազմաթիվ էջեր VBA- ի միջոցով

Բառային լուծումներ Սեպտեմբեր 28, 2025
Կիսվել հիմա ՝

Այս հոդվածում մենք կենտրոնանալու ենք ձեզ ցույց տալու վրա, թե ինչպես ջնջել ձեր Word փաստաթղթում բազմաթիվ էջեր VBA- ի միջոցով:

Փաստաթղթի կազմումը պահանջում է անընդհատ ճշգրտումներ: Եվ բովանդակության էջերը ջնջելը նույնքան անհրաժեշտ է, որքան մյուս փոփոխությունները: Անօգուտ տեքստերը հեռացնելը հեշտ է: Մարդկանց մեծ մասը նախընտրում է ընտրություն կատարել, այնուհետև սեղմել «Ջնջել» կամ «Backspace» կոճակը՝ այդ գործողությունը կատարելու համար:

Սա, անշուշտ, ձեզ կստիպի այն, ինչ ցանկանում եք: Բայց դա անելն ավելի շուտ կա: Ավելին, դուք բաց եք թողնում ընտրության փուլը և միանգամից ջնջում եք բազմաթիվ էջեր: Գրավիչ մոտեցումը Word մակրո գործարկելն է:Արագորեն ջնջեք մի քանի էջ ձեր Word փաստաթղթում

Deleteնջել ընթացիկ էջը

Նրանց համար, ովքեր ատում են ընտրություն կատարել մի շարք տեքստերից, սա կարող է լինել ձեր օրհնությունը: Նախ եկեք ձեզ ցույց տանք, թե ինչպես ջնջել ընթացիկ էջը VBA- ի միջոցով:

  1. Սկսելու համար դրեք կուրսորը այն էջում, որը ցանկանում եք ջնջել:
  2. Բացեք VBA- ի խմբագրիչը Word- ում ՝ կտտացնելով «Մշակող» ներդիրին, ապա «Visual Basic» - ին: Եթե ​​«Մշակող» ներդիրը դեռ հասանելի չէ ժապավենի մեջ, փոխարենը սեղմեք «Alt + F11»:
  3. Երկրորդը, կտտացրեք «Նորմալ»:
  4. Դրանից հետո կտտացրեք «Տեղադրել» կետին և այդ ընտրացանկում ընտրել «Մոդուլ»:Սեղմեք «Նորմալ» -> Սեղմեք «Տեղադրել» -> Սեղմեք «Մոդուլ»
  5. Կրկնակի սեղմումով բացեք նոր մոդուլը:
  6. Եվ այնտեղ տեղադրեք հետևյալ ծածկագրերը.
Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub
  1. Ի վերջո, կտտացրեք «Run» կոճակին կամ սեղմեք «F5»:Կպցնել ծածկագրերը-> Սեղմել «Գործարկել»

Deleteնջել բազմաթիվ էջեր

  1. Հետևեք վերը նշված քայլերին ՝ մակրո տեղադրելու և գործարկելու համար:
  2. Փոխարինեք մակրոտն այսով.
Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub
  1. Գործող մակրոը կխթանի մուտքային վանդակը: Մուտքագրեք ջնջվող էջերի էջի համարը և դրանք բաժանելու համար օգտագործեք ստորակետ: Ստորակետից հետո մի տարածք մի մուտքագրեք:
  2. Դրանից հետո կտտացրեք «Լավ» ՝ շարունակելու համար:Մուտքագրեք էջերի համարները-> Սեղմեք «OK»

Իհարկե, այս մակրոը կարող եք օգտագործել ընթացիկ էջը ջնջելու համար: Պարզապես մուտքագրեք էջի համարը:

Թույլ մի տվեք, որ կոռուպցիան դադարեցնի ձեզ

Երբ տվյալների աղետ է տեղի ունենում, դա անպայման կդանդաղեցնի ձեր ամենօրյա աշխատանքը, և դուք ստիպված կլինեք կրել նաև լրացուցիչ ծախսերը։ Ձեր տվյալների անվտանգությունն ապահովելու համար ավելի լավ է կապվել... դոկի վնաս նորոգող գործիք:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում ուղղել Excel- ը և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: