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

În timp ce utilizați un document Microsoft Word, puteți salva fiecare pagină ca fișiere pdf separate, unul câte unul, cu funcția integrată Salvare ca, specificând numărul paginii în dialogul Opțiuni. Cu toate acestea, dacă există sute de pagini care trebuie împărțite și salvate ca fișiere pdf individuale, cum puteți face? Acest articol oferă o metodă pentru a rezolva rapid această 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.

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Caracteristici Kutools AI: Generați conținut / Rescrie textul / Documente Întrebări și răspunsuri / Obțineți răspunsuri rapide / Traduceți documente / Document polonez (format păstrat)...

📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF...

✏ Editarea continutului: Găsiți și înlocuiți în loturi în mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la Elimină grup...

➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Imagini multiple / Descoperiți mai multe în Insera grup...

???? Selectii de precizie: Repera cu precizie Pagini specifice / Mese / Forme / Paragrafe de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

⭐ Îmbunătățiri de stele: Navigați la orice locație / Inserarea automată a textului repetitiv / Comutați între ferestrele documentelor / 11 Convertire Instrumente...

???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word acum! 🚀

Descărcare gratuită     Cumpară acum     Aflați mai multe despre Kutools pentru Word

 

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Peste 100 de instrumente pentru Word

• 🤖 Caracteristici Kutools AI: Genera, Rescrie, Rezuma, Traduceți Documente / Obțineți răspunsuri rapide / Document polonez (format păstrat)
• 📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Conversie lot în PDF
• ✏ Editarea continutului: Găsiți și înlocuiți în lot / Redimensionați toate imaginile
• 🧹 Curățare fără efort: Eliminați spațiile suplimentare / Eliminați secțiunile de secțiune
• ➕ Inserții creative: Introduceți o mie de separatoare / Introduceți casete de selectare / Creați coduri QR

Descărcare gratuită Cumpară acum Aflați mai multe despre Kutools