Hvordan gemmes hver side som separate pdf-filer i et Word-dokument?

Mens du bruger Microsoft Word-dokument, kan du gemme hver side som separate pdf-filer én efter én med dens indbyggede Gem som-funktion ved at angive sidetallet i dialogboksen Indstillinger. Men hvis der er hundredvis af sider, der skal opdeles og gemmes som individuelle pdf-filer, hvordan kan du så gøre det? Denne artikel giver dig en metode til hurtigt at løse dette problem.

Gem hver side som separate pdf-filer i bulk med VBA-kode

Gem hver side som separate pdf-filer i bulk med VBA-kode

Nedenstående VBA-kode hjælper dig med hurtigt at gemme hver side i et dokument som individuelle pdf-filer på samme tid. Gør som følger.

1. Åbn det dokument, du vil gemme hver side eller bestemte sider som pdf-filer, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Modul, kopier under VBA-koden til modulvinduet.

VBA-kode: Gem hver side som separate pdf-filer på samme tid i et Word-dokument

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. Tryk på F5 nøgle for at køre koden.

4. i Gennemse vindue skal du vælge en mappe for at gemme pdf-filerne og klikke på OK knap. Se skærmbillede:

5. I den første Kutools for Word i dialogboksen, skal du indtaste dit sides startnummer i tekstboksen og klikke OK.

6. I det andet Kutools for Word i dialogboksen, skal du indtaste det sidste sidenummer i dit dokument og derefter klikke på OK. Se skærmbillede:

Bemærk: Hvis du bare vil gemme flere kontinuerlige sider i dokumentet som separate pdf-filer som side 4, 5 og 6, skal du indtaste 4 og 6 separat i de ovennævnte to dialogbokse.

Når du har kørt koden, skal du gå til den angivne mappe, du valgte i trin 4, du kan se, at alle sider er opdelt og gemt som individuelle pdf-filer som vist nedenfor.

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-funktioner: Generer indhold / Omskriv tekst / Dokument Q&A / Få hurtige svar / Oversæt dokumenter / Polsk dokument (bevar format)...

📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF...

✏ Indholdsredigering: Batch Find og Erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til Fjern gruppe...

➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Flere billeder / Oplev mere i indsatte gruppe...

???? Præcisionsvalg: Find ud af Specifikke sider / tabeller / Former / Overskriftsparagraffer / Forbedre navigation med mere Type funktioner...

⭐ Stjerneforbedringer: Naviger til enhver placering / Auto-indsæt gentagen tekst / Skift mellem dokumentvinduer / 11 Konvertering Værktøjer...

???? Vil du prøve disse funktioner? Download Kutools til Word nu! 🚀

Gratis download     Køb Nu     Lær mere om Kutools for Word

 

Bedste kontorproduktivitetsværktøjer

Kutools for Word - 100+ værktøjer til Word

• 🤖 Kutools AI-funktioner: Generer, Omskriv, Opsummer, oversætte Dokumenter / Få hurtige svar / Polsk dokument (bevar format)
• 📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Batch Konverter til PDF
• ✏ Indholdsredigering: Batch Find og erstat / Ændr størrelse på alle billeder
• 🧹 Ubesværet rengøring: Fjern ekstra pladser / Fjern sektionsbrud
• ➕ Kreative indlæg: Indsæt tusinde separatorer / Indsæt afkrydsningsfelter / Opret QR-koder

Gratis download Køb Nu Lær mere om Kutools