Hur sparar jag varje sida som separata pdf-filer i ett Word-dokument?

När du använder Microsoft Word-dokument kan du spara varje sida som separata pdf-filer en efter en med dess inbyggda Spara som-funktion. Men om det finns hundratals sidor måste delas upp och sparas som enskilda pdf-filer, hur kan du göra det? Den här artikeln ger dig en metod för att snabbt lösa detta problem.

Spara varje sida som separata pdf-filer i bulk med VBA-kod

Spara varje sida som separata pdf-filer i bulk med VBA-kod

Nedanstående VBA-kod hjälper dig att snabbt spara varje sida i ett dokument som enskilda pdf-filer samtidigt. Gör så här.

1. Öppna dokumentet som du kommer att spara varje sida eller specifika sidor som pdf-filer och tryck sedan på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modul, kopiera under VBA-koden till modulfönstret.

VBA-kod: Spara varje sida som separata pdf-filer samtidigt i ett 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. tryck på F5 för att köra koden.

4. I Bläddra välj en mapp för att spara pdf-filerna och klicka på OK knapp. Se skärmdump:

5. I den första Kutools för Word dialogrutan, ange ditt dokuments startsida i textrutan och klicka OK.

6. På sekunden Kutools för Word dialogrutan, ange dokumentets sista sidnummer och klicka sedan på OK. Se skärmdump:

Anmärkningar: Om du bara vill spara flera sidor kontinuerligt i dokument som separata pdf-filer som sid 4, 5 och 6, skriv 4 och 6 separat i de två ovanstående dialogrutorna.

Efter att ha kört koden, gå till den angivna mappen du valde i steg 4, du kan se att alla sidor är uppdelade och sparade som enskilda pdf-filer som visas nedan.

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

✏ Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

➕ Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀

Gratis nedladdning     Läs mer     Köp nu