Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

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


Dividi e salva ogni pagina di un documento come nuovi documenti separati:

Il Documento diviso utilità di Kutools for Excel può aiutarti a dividere e salvare facilmente ogni pagina del documento corrente come nuovo documento separato in blocco come mostrato nell'immagine sottostante. Scaricalo e provalo subito! (60 giorni di percorso gratuito)


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 ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    blabla · 3 months ago

    What can I do to save each page with a reference in the document and not by page name?
  • To post as a guest, your comment is unpublished.
    Colette · 7 months ago
    Beautiful! Thank you, your instructions are easy to follow and spot. You have saved us a lot of time.

  • To post as a guest, your comment is unpublished.
    Meyer · 1 years ago
    What can I do to save each page with a reference in the document and not by page name?
  • To post as a guest, your comment is unpublished.
    franco.gagliano@gmail.com · 2 years ago
    Salve, ho utilizzato i vostri preziosi suggerimenti e sono riuscito facilmente a generare i file singoli in pdf partendo da un file word di stampa unione. Vorrei chiedere se è possibile nominare i singoli file pdf, al posto del numero di pagina, con un nome specifico di un campo contenuto nel file di excel che ho utilizzato per stampa unione. Sarebbe il massimo. Grazie mille
  • To post as a guest, your comment is unpublished.
    Bharadwaj · 2 years ago
    down loaded the kutools for trial - installed and when trying to something the word is closing and the tool never worked.

    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      Thanks to let me know the bug, and sorry for the inconvenience. Would you provide your Word version? We need to figure out the problem with more information.