Skip to main content

Come salvare ogni pagina come file PDF separati in un documento Word?

Author: Siluvia Last Modified: 2025-08-06

In Microsoft Word, puoi salvare manualmente ogni pagina come PDF separato utilizzando la funzione integrata "Salva Come" e specificando il numero di pagina nella finestra Opzioni. Tuttavia, se stai lavorando con un documento di grandi dimensioni che ha centinaia di pagine, farlo manualmente può essere dispendioso in termini di tempo. Questo articolo introduce un metodo per salvare rapidamente tutte le pagine come file PDF individuali.

Salva ogni pagina come file PDF separati in blocco con il codice VBA

Salva ogni pagina come file PDF separati in blocco con il codice VBA

Puoi utilizzare il seguente codice VBA per salvare automaticamente ogni pagina di un documento Word come file PDF individuale. Ecco come fare:

  1. Apri il documento Word che desideri elaborare. Premi Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
  2. Nella finestra di Visual Basic, clicca su "Inserisci" > "Modulo", quindi incolla il seguente codice VBA nella finestra del modulo: 
    Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub
    VBA window with Insert > Module selected and VBA code copied into the Module window
  3. Premi F5 per eseguire il codice.
  4. Nella finestra di dialogo Sfoglia che appare, seleziona una cartella in cui salvare i file PDF e fai clic su "OK".
    Browse window
  5. Nella prima finestra di dialogo di "Kutools for Word", inserisci il numero della pagina iniziale e fai clic su "OK".
    Kutools for Word dialog box with a text box for entering the start page number
  6. Nella seconda finestra di dialogo di "Kutools for Word", inserisci il numero della pagina finale e fai clic su "OK".
    Second Kutools for Word dialog box with a text box for entering the last page number

    Nota: Ad esempio, per salvare alcune pagine consecutive — pagine 4, 5 e 6 — basta inserire "4" e "6" nei due campi di dialogo.

Dopo aver eseguito lo script, vai alla cartella selezionata nel passaggio 4. Troverai che ogni pagina specificata è stata salvata come file PDF separato.

Pages are split and saved as individual PDF files
Dividi facilmente un documento Word in più documenti
Dividi facilmente un documento Word in più documenti con la funzionalità Dividi documento. Invece di copiare e incollare manualmente, questo strumento ti consente di dividere il documento in base alla pagina, al Titolo 1, alle interruzioni di pagina o alle interruzioni di sezione, migliorando drasticamente l'efficienza.
A screenshot of the Split Document utility splitting a Word document by page
Kutools for Word: Migliora la tua esperienza con Word grazie a centinaia di strumenti utili. Scarica ora e scopri la differenza!

I migliori strumenti per la produttività in ufficio

Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!

🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...

📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...

✏ Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...

🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...

➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...

⭐ Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vuoi provare queste funzionalità? Scarica subito Kutools per Word! 🚀
 

I migliori strumenti per la produttività in ufficio

Kutools per Word - 100+ Strumenti per Word

Download gratuito Acquista ora Scopri di più su Kutools