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 Entra 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 Entra 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 > Moduloe 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.

---

Strumenti di produttività Word consigliati

 

Kutools per Word: oltre 100 funzionalità avanzate per Word, risparmia il 50% del tempo

• Le operazioni complicate e ripetute possono essere eseguite una sola volta in pochi secondi.
• Inserisci più immagini tra le cartelle nel documento di Word contemporaneamente.
• Unisci e combina più file di Word tra cartelle in uno con l'ordine desiderato.
• Suddividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
• Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...

Continua a leggere... Scarica Ora Acquista