KutoolsforOffice — Un'unica soluzione, cinque potenti strumenti.Ottenere di più con meno sforzo.

Come salvare ogni pagina di un documento Word come file PDF separato?

AutoreSiluvia Data di modifica

In Microsoft Word, è possibile salvare manualmente ogni pagina come PDF separato utilizzando la funzione integrata «Salva con nome» e indicando il numero di pagina nella finestra di dialogo Opzioni. Tuttavia, con documenti ampi che contengono centinaia di pagine, questa procedura manuale può risultare estremamente dispendiosa in termini di tempo. Questo articolo illustra un metodo rapido per esportare tutte le pagine come singoli file PDF.

Salva ogni pagina come singolo File PDF in blocco con codice VBA

Salva ogni pagina come singolo File PDF in blocco con codice VBA

È possibile utilizzare il codice VBA riportato di seguito per salvare automaticamente ogni pagina di un documento Word come file PDF separato. Ecco come procedere:

  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, fare clic su «Inserisci» > «Modulo» e quindi incollare 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
    Finestra VBA con Inserisci > Modulo selezionato e codice VBA copiato nella finestra del modulo
  3. Premi F5 per eseguire il codice.
  4. Nella finestra Sfoglia visualizzata, seleziona una cartella in cui salvare il file PDF e fai clic su «OK».
    Finestra di esplorazione
  5. Nella prima finestra di dialogo «Kutools per Word», inserisci il numero della pagina iniziale e fai clic su «OK».
    Kutools for Word finestra di dialogo con una casella di testo per inserire il numero della pagina iniziale
  6. Nella seconda finestra di dialogo «Kutools per Word», inserisci il numero della pagina finale e fai clic su «OK».
    Seconda finestra di dialogo Kutools for Word con una casella di testo per inserire il numero dell'ultima pagina

    Nota: Ad esempio, per salvare alcune pagine consecutive—pagine 4, 5 e 6—basta inserire «4» e «6» nelle due caselle di dialogo.

Al termine dell'esecuzione dello script, recati nella cartella selezionata al passaggio 4 e scoprirai che ogni pagina specificata è stata salvata come un file PDF separato.

Le pagine vengono suddivise e salvate come singoli file PDF
Dividi facilmente un documento di Word in più documenti
Dividi facilmente un documento di Word in più documenti con l’Dividi documentoutility. Invece di copiare e incollare manualmente, questo strumento ti consente di suddividere il documento in base a pagina,Intestazione 1,Interruzione di paginao Interruzione di sezione– migliorando notevolmente l’efficienza.
Uno screenshot dell'utilità Dividi documento che suddivide un documento Word per pagina
Kutools per Word: Migliora la tua esperienza con Word grazie a centinaia di strumenti pratici. Scaricalo subito e scopri la differenza!

Migliori strumenti per la produttività in Office

Kutools per Word – Migliora la tua esperienza con Word grazie a oltre 100 funzionalità eccezionali!

🤖Funzionalità KUTOOLS AI: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni formato) / Super Traduci (Mantieni formato) / Redazione AI / Correzione AI…

📘Padronanza dei documenti: Dividi pagine, unisci documenti, esporta la selezione in vari formati (PDF, TXT, DOC, HTML…) e conversione batch in PDF…

✏Modifica contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne della tabella / Converti tabella in testo…

🧹Pulizia senza sforzo: Elimina in un attimo spazi extra, interruzioni di sezione, caselle di testo e collegamenti ipertestuali. Per altri strumenti di rimozione, vai al gruppo Rimuovi…

➕Inserimenti creativi: Inserisci separatori delle migliaia, caselle di controllo, pulsanti di opzione, codici QR, codici a barre e immagini multiple. Scopri di più nel gruppo Inserisci…

🔍Selezioni precise: Individua con precisione pagine specifiche, tabelle, forme, paragrafi di intestazione e migliora la navigazione con altre funzionalità ...Seleziona...

⭐Miglioramenti stellari: Passa a qualsiasi posizione / Inserimento automatico di testo ripetitivo / Alterna tra i documenti Windows / 11 strumenti di conversione Strumenti di...

🌍Supporta oltre 40 lingue: Usa Kutools nella tua lingua preferita – tra cui inglese, spagnolo, tedesco, francese, cinese e molte altre!

Schede Kutools for Word sulla barra multifunzione
 
 

Office Tab- Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, anziché in nuove finestre.
  • Aumenta la tua produttività del 50 % e riduci centinaia di clic del mouse ogni giorno!

✨ Kutools for Office – Un’installazione, cinque strumenti potenti!

Include Office Tab Pro·Kutools per Excel·Kutools per Outlook·Kutools per Word·Kutools for PowerPoint

📦 Ottieni tutti gli 5 strumenti in un’unica suite | 🔗 Integrazione perfetta con Microsoft Office | ⚡ Risparmia tempo e aumenta immediatamente la produttività

Migliori strumenti per la produttività in Office

Kutools per Word- Strumenti 100+ per Word

Download gratuitoAcquista oraScopri di più su Kutools