Come eliminare rapidamente più pagine nel documento di Word tramite VBA

In questo articolo, ci concentreremo sulla dimostrazione di come eliminare più pagine nel documento di Word tramite VBA.

La stesura di un documento richiede continue modifiche. E cancellare pagine di contenuto è altrettanto necessario quanto altre modifiche. Eliminare testi inutili è semplice. La maggior parte delle persone sceglie di selezionarli e poi premere "Canc" o "Backspace" per completare l'operazione.

Questo sicuramente ti darà quello che vuoi. Ma c'è un modo più rapido per farlo. Inoltre, salti il ​​passaggio di selezione ed elimini più pagine contemporaneamente. L'approccio interessante consiste nell'eseguire una macro di Word.

Elimina la pagina corrente

Per coloro che odiano fare selezioni su una serie di testi, questa può essere la tua benedizione. Per prima cosa ti mostriamo come eliminare la pagina corrente tramite VBA.

1. Per cominciare, posiziona il cursore sulla pagina che desideri eliminare.
2. Apri l'editor VBA in Word facendo clic sulla scheda "Sviluppatore" e quindi su "Visual Basic". Se la scheda "Sviluppatore" non è ancora disponibile nella barra multifunzione, premi invece "Alt + F11".
3. In secondo luogo, fai clic su "Normale".
4. Quindi fai clic su "Inserisci" e scegli "Modulo" in quel menu.
5. Aprire il nuovo modulo facendo doppio clic.
6. E incolla i seguenti codici lì:

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

7. Infine, fai clic sul pulsante "Esegui" o premi "F5".

Elimina più pagine

1. Segui i passaggi precedenti per installare ed eseguire una macro.
2. Sostituisci la macro con questa:

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. L'esecuzione della macro attiverà una casella di input. Immettere il numero di pagina delle pagine da eliminare e utilizzare la virgola per separarle. Non inserire uno spazio dopo la virgola.
4. Quindi fare clic su "OK" per procedere.

Naturalmente, puoi utilizzare questa macro per eliminare la pagina corrente. Basta inserire il numero di pagina.

Non lasciare che la corruzione ti fermi

Una volta che si verifica un disastro dei dati, è certo che rallenterà il tuo lavoro quotidiano e dovrai anche sopportare i costi aggiuntivi. Per assicurarti che i tuoi dati siano al sicuro, faresti meglio a procurarti un danni al documento strumento di riparazione.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correggere Excel and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com