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.

---

Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

• Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
• V Wordov dokument hkrati vstavite več slik v mape.
• Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
• Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
• Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...

Preberi več Prenesi zdaj Nakup