Cum să ștergeți rapid mai multe pagini din documentul Word prin VBA

În acest articol, ne vom concentra pe a vă demonstra cum să ștergeți mai multe pagini din documentul Word prin VBA.

Redactarea unui document necesită ajustări în permanență. Iar ștergerea paginilor de cuprins este la fel de necesară ca și alte modificări. Eliminarea textelor inutile este ușoară. Majoritatea oamenilor aleg să facă o selecție și apoi să apese fie „Ștergere”, fie „Backspace” pentru a face treaba.

Acest lucru cu siguranță vă va obține ceea ce doriți. Dar există o mai rapidă pentru a face acest lucru. În plus, sări peste pasul de selecție și ștergeți mai multe pagini simultan. Abordarea atrăgătoare este să rulați o macrocomandă Word.

Ștergeți pagina curentă

Pentru cei care urăsc să facă selecție pe o gamă de text, aceasta poate fi binecuvântarea ta. Mai întâi, să vă arătăm cum să ștergeți pagina curentă prin VBA.

1. Pentru început, plasați cursorul pe pagina pe care doriți să o ștergeți.
2. Deschideți editorul VBA în Word făcând clic pe fila „Dezvoltator” și apoi pe „Visual Basic”. Dacă fila „Dezvoltator” nu este încă disponibilă în Panglică, apăsați în schimb „Alt+ F11”.
3. În al doilea rând, faceți clic pe „Normal”.
4. Apoi faceți clic pe „Inserare” și alegeți „Modul” din meniul respectiv.
5. Deschideți noul modul făcând dublu clic.
6. Și inserați următoarele coduri acolo:

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

7. În cele din urmă, faceți clic pe butonul „Run” sau apăsați pe „F5”.

Ștergeți mai multe pagini

1. Urmați pașii de mai sus pentru a instala și rula o macrocomandă.
2. Înlocuiți macrocomanda cu aceasta:

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

3. Rularea macrocomenzii va declanșa o casetă de introducere. Introduceți numărul paginilor care urmează să fie șterse și folosiți virgulă pentru a le separa. Nu introduceți spațiu după virgulă.
4. Apoi faceți clic pe „OK” pentru a continua.

Desigur, puteți folosi această macrocomandă pentru a șterge pagina curentă. Pur și simplu introduceți numărul paginii.

Nu lăsa corupția să te oprească

Odată ce se întâmplă un dezastru legat de date, cu siguranță îți va încetini munca zilnică și va trebui să suporti și costurile suplimentare. Pentru a te asigura că datele tale sunt în siguranță, ar fi bine să apelezi la un doc deteriorare instrument de reparare.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com