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

Durante l'utilizzo del documento Microsoft Word, è possibile salvare ogni pagina come file PDF separati uno per uno con la sua funzione Salva con nome incorporata. Tuttavia, se ci sono centinaia di pagine che devono essere divise e salvate come singoli file pdf, come puoi fare? Questo articolo fornisce un metodo per risolvere rapidamente questo problema.

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

Il codice VBA sottostante ti aiuta a salvare rapidamente ogni pagina in un documento come singoli file pdf allo stesso tempo. Si prega di fare quanto segue.

1. Apri il documento in cui salverai ogni pagina o pagine specifiche come file pdf, quindi premi il tasto altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo, copia sotto il codice VBA nella finestra del modulo.

Codice VBA: salva ogni pagina come file PDF separati contemporaneamente in un documento Word

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

3. premi il F5 chiave per eseguire il codice.

4. Nel Scopri la nostra gamma di prodotti selezionare una cartella in cui salvare i file pdf e fare clic su OK pulsante. Vedi screenshot:

5. Nella prima Kutools for Word finestra di dialogo, immettere il numero di pagina iniziale del documento nella casella di testo e fare clic OK.

6. Nella seconda Kutools for Word finestra di dialogo, immettere il numero dell'ultima pagina del documento, quindi fare clic su OK. Visualizza gli screenshot:

Note:: Se vuoi solo salvare diverse pagine continue nel documento come file pdf separati come le pagine 4, 5 e 6, inserisci 4 e 6 separatamente nelle due finestre di dialogo sopra.

Dopo aver eseguito il codice, vai alla cartella specificata selezionata nel passaggio 4, puoi vedere che tutte le pagine sono divise e salvate come singoli file pdf come mostrato nell'immagine sottostante.

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

👉 Vuoi provare queste funzionalità? Kutools per Word offre a Prova gratuita 60-day, senza limitazioni! 🚀

Scarica gratis     Scopri di più     Compra Ora