Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

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

Author Siluvia Last modified

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 for Word - Eleva la tua esperienza su Word con oltre 100 funzioni straordinarie!

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

📘 Maestria del Documento: Dividi Pagine / Unisci Documenti / Esporta Intervallo in vari formati (PDF/TXT/DOC/HTML...) / Conversione in batch in PDF...

Modifica del Testo: 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 Spazi Extra / Interruzioni di Sezione / Casella di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, visita il gruppo Rimuovi...

Inserimenti Creativi: Inserisci Separatore delle Migliaia / Casella di Controllo / Pulsante di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...

🔍 Selezioni Accurate: Individua Pagine Specifiche / Tabelle / Forma / Paragrafo di Intestazione / Migliora la navigazione con altre funzioni di Seleziona...

Miglioramenti Speciali: Vai a qualsiasi Intervallo / Inserimento automatico di testo ripetitivo / Passa tra Finestre dei Documenti /11 strumenti di Conversione...

🌍 Supporta oltre40 lingue: Usa Kutools nella lingua che preferisci – Inglese, Spagnolo, Tedesco, Francese, Cinese, e più di altre40 lingue!

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

✨ Kutools for Office – Una sola installazione, cinque strumenti potenti!

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

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

I migliori strumenti per la produttività in ufficio

Kutools for Word - 100+ strumenti per Word