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

or

Cum se salvează fiecare pagină ca fișiere PDF separate într-un document Word?

While using Microsoft Word document, you can save each page as separate pdf files one by one with its build-in Save As function. However, if there are hundreds of pages need to be split and saved as individual pdf files, how can you do? This article provides method for you to quickly solve this problem.

Salvați fiecare pagină ca fișiere PDF separate în bloc cu codul VBA


Salvați fiecare pagină ca fișiere PDF separate în bloc cu codul VBA

Codul VBA de mai jos vă ajută să salvați rapid fiecare pagină într-un document ca fișiere pdf individuale în același timp. Vă rugăm să faceți următoarele.

1. Deschideți documentul pe care îl veți salva fiecare pagină sau pagini specifice ca fișiere pdf, apoi apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Modul, copiați mai jos codul VBA în fereastra Module.

Cod VBA: Salvați fiecare pagină ca fișiere PDF separate în același timp într-un document 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. apasă pe F5 tasta pentru a rula codul.

4. În Naviga fereastra, selectați un folder pentru a salva fișierele pdf și faceți clic pe OK buton. Vedeți captura de ecran:

5. În prima Kutools pentru Cuvânt caseta de dialog, introduceți numărul paginii de început a documentului în caseta de text și faceți clic pe OK.

6. În al doilea Kutools pentru Cuvânt caseta de dialog, introduceți ultimul număr de pagină al documentului dvs., apoi faceți clic pe OK. Vedeți captura de ecran:

notițe: Dacă doriți doar să salvați mai multe pagini în document ca fișiere pdf separate, cum ar fi paginile 4, 5 și 6, vă rugăm să introduceți 4 și 6 separat în cele două casete de dialog de mai sus.

După rularea codului, vă rugăm să mergeți la folderul specificat pe care l-ați selectat la pasul 4, puteți vedea că toate paginile sunt împărțite și salvate ca fișiere pdf individuale așa cum este prezentat mai jos.


Împărțiți și salvați fiecare pagină a unui document ca documente noi separate:

Împărțiți documentul utilitatea Kutools pentru Excel vă poate ajuta să împărțiți cu ușurință și să salvați fiecare pagină a documentului curent ca document separat separat în bloc, așa cum este prezentată imaginea de mai jos. Descărcați și încercați acum! (Traseu gratuit de 60 de zile)


Instrumente de productivitate Word recomandate

 

Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp

  • Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
  • Inserați mai multe imagini în foldere în documentul Word simultan.
  • Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
  • Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
  • Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...
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 · 29 days 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 · 4 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 · 1 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.