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 continuamente aggiustamenti. E l'eliminazione di pagine di contenuti è necessaria tanto quanto altre modifiche. Rimuovere i testi inutili è facile. Most le persone scelgono di effettuare una selezione e quindi premono "Elimina" o "Backspace" per eseguire 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 di dati, rallenterà sicuramente il tuo lavoro quotidiano e dovrai sopportare l'ulteriore cost anche. Per assicurarti che i tuoi dati siano sani e salvi, 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 e pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com