Kako shraniti vsako stran kot ločene datoteke pdf v dokumentu Word?

Med uporabo dokumenta Microsoft Word lahko vsako stran posamezno shranite kot ločene datoteke pdf z vgrajeno funkcijo Shrani kot. Če pa je treba stotine strani razdeliti in shraniti kot posamezne datoteke pdf, kako lahko to storite? Ta članek ponuja način za hitro reševanje te težave.

Shranite vsako stran kot ločeno pdf datoteko v razsutem stanju s kodo VBA

Shranite vsako stran kot ločeno pdf datoteko v razsutem stanju s kodo VBA

Spodnja koda VBA vam pomaga hitro hkrati shraniti vsako stran v dokumentu kot posamezne datoteke pdf. Naredite naslednje.

1. Odprite dokument, v katerem boste posamezne strani ali posamezne strani shranili kot datoteke pdf, nato pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Modul, kopirajte pod kodo VBA v okno modula.

Koda VBA: vsako stran hkrati shranite kot ločene datoteke pdf v dokumentu 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. Pritisnite F5 tipko za zagon kode.

4. V Ljubljani Brskanje izberite mapo, v katero želite shraniti datoteke pdf, in kliknite OK . Oglejte si posnetek zaslona:

5. V prvem Kutools za Word v pogovorno okno vnesite številko začetne strani dokumenta v besedilno polje in kliknite OK.

6. V drugem Kutools za Word v pogovorno okno vnesite zadnjo številko strani dokumenta in kliknite OK. Oglejte si posnetek zaslona:

Opombe: Če želite v dokumentu shraniti več neprekinjenih strani v obliki ločenih datotek pdf, kot so strani 4, 5 in 6, v zgornja pogovorna okna vnesite 4 in 6 posebej.

Po zagonu kode pojdite na določeno mapo, ki ste jo izbrali v 4. koraku, vidite, da so vse strani razdeljene in shranjene kot posamezne datoteke pdf, kot je prikazano spodaj.

Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino  /  Prepiši besedilo  /  Povzemite dokumente  /  Povprašajte za informacije na podlagi dokumenta, vse v Wordu

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati...

✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek  /  Spremeni velikost vseh slik  /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo...

🧹 Čiščenje brez napora: Pometite stran Dodatni prostori  /  Prelomi oddelkov  /  Vse glave  /  Besedilna polja  /  Hiperpovezave  / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...

➕ Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  / Odkrijte več v Vstavi skupino...

???? Natančne izbire: Natančna točka določene strani  /  mize  /  Oblike  /  odstavki naslova  / Izboljšajte navigacijo z več Izberite funkcije...

⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije  /  samodejno vstavljanje ponavljajočega se besedila  /  brez težav preklapljate med okni dokumentov  /  11 Orodja za pretvorbo...

???? Želite preizkusiti te funkcije? Kutools for Word ponuja a 60-dan brezplačni preskus, brez omejitev! 🚀

Brezplačen prenos     Preberi več     Kupi zdaj