Come eliminare più pagine specifiche in un documento di Word?
In un documento di Word, puoi selezionare il contenuto della pagina corrente, quindi premere il tasto Canc per eliminare facilmente la pagina corrente. Ma, se devi rimuovere più pagine da un file Word di grandi dimensioni, come potresti risolverlo rapidamente?
Elimina un intervallo di pagine nel documento di Word con la funzione Vai a
Elimina più pagine specifiche nel documento di Word con codice VBA
Elimina un intervallo di pagine nel documento di Word con la funzione Vai a
Se desideri eliminare un intervallo di pagine consecutive da un documento di Word, la funzione Vai a può farti un favore.
1. Avvia il documento di Word che desideri eliminare le pagine.
2. Quindi premere F5 chiave per aprire il Trova e sostituisci finestra di dialogo, sotto il file Vai scheda, fare clic Pagina nel Vai a cosa casella di riepilogo, quindi immettere il numero della pagina iniziale da cui si desidera eliminare e premere entrare tasto per andare alla pagina specifica, vedi screenshot:
2. Quindi, chiudi questo Trova e sostituisci finestra di dialogo e premete F8 accendere il Modalità estesa.
3. Continua a premere F5 chiave per aprire il Trova e sostituisci finestra di dialogo, questa volta immettere il numero della pagina finale che si desidera eliminare, quindi premere entrare chiave. Tutte le pagine da 15 a 20 sono state selezionate contemporaneamente. Vedi screenshot:
4. Infine, premere Elimina direttamente per eliminare queste pagine contemporaneamente.
Elimina più pagine specifiche nel documento di Word con codice VBA
Per eliminare più pagine specifiche in un file Word che non sono consecutive, il seguente codice VBA può aiutarti.
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.
Codice VBA: elimina più pagine specifiche nel file 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. Quindi, premere F5 tasto per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di inserire i numeri di pagina che desideri eliminare, separa i numeri di pagina con una virgola, vedi screenshot:
4. Quindi fare clic su OK pulsante, tutte le pagine specificate sono state eliminate contemporaneamente.
Seleziona più pagine specifiche e quindi cancellale contemporaneamente:
Se desideri eliminare più pagine specifiche da un documento di Word di grandi dimensioni, Kutools for Word's Seleziona Pages può aiutarti a selezionare prima le pagine di cui hai bisogno, quindi premere Elimina tasto per eliminarli immediatamente. Kutools for Word: con più di 100 utili componenti aggiuntivi di Word, gratis da provare senza limitazioni per 60 giorni. Fare clic per scaricare e provare gratuitamente ora! |
I migliori strumenti per la produttività in ufficio
Kutools for Word - Migliora la tua esperienza con le parole con Over 100 Caratteristiche notevoli!
🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto / Riscrivere il testo / Riepilogare i documenti / Richiedi informazioni sulla base del documento, tutto all'interno di Word
📘 Padronanza dei documenti: Pagine divise / Unisci documenti / Esporta la selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF / Esporta pagine come immagini / Stampa più file contemporaneamente...
✏ Modifica dei contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasporre righe e colonne della tabella / Converti tabella in testo...
🧹 Pulito senza sforzo: Spazza via Spazi extra / Interruzioni di sezione / Tutte le intestazioni / Caselle di testo / Collegamenti ipertestuali / Per ulteriori strumenti di rimozione, vai al nostro Rimuovi gruppo...
➕ Inserti creativi: Inserisci Mille separatori / Caselle di controllo / Pulsanti di scelta / QR Code / Codice a barre / Tabella della linea diagonale / Didascalia dell'equazione / Didascalia immagine / Didascalia / Immagini multiple / Scopri di più nella Inserisci gruppo...
???? Selezioni di precisione: Individuare pagine specifiche / con tabelle / forme / paragrafi di intestazione / Migliora la navigazione con Scopri di più Seleziona funzionalità...
⭐ Miglioramenti delle stelle: Naviga rapidamente verso qualsiasi luogo / inserire automaticamente testo ripetitivo / passare senza problemi da una finestra all'altra del documento / 11 strumenti di conversione...