Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

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

Medtem ko uporabljate dokument Microsoft Word, lahko posamezne strani shranite kot ločene datoteke datotek PDF z vgrajeno funkcijo Save As. Če pa je na stotine strani treba razdeliti in shraniti kot posamezne pdf datoteke, kako lahko to naredite? Ta članek ponuja metodo za hitro reševanje te težave.

Shranite vsako stran kot ločene pdf datoteke v razsutem stanju s kodo VBA


Razdelite in shranite vsako stran dokumenta kot ločeni novi dokumenti:

O Razdelite dokument uporabnost Kutools za Excel vam lahko pomagajo z lahkoto razdeliti in shraniti vsako stran trenutnega dokumenta kot ločen nov dokument v razsutem stanju.

  • Izberite lokacijo za shranjevanje deljenih dokumentov;
  • Izberite stran Iz Split s spustnega seznama;
  • klik OK začeti. Prikaz slike:

Kutools for Word: z več kot 100 priročnimi dodatki za Word, lahko brezplačno poskusite brez omejitev v 30 dneh. Prenesite in brezplačno preizkusite zdaj!


Shranite vsako stran kot ločene pdf datoteke v razsutem stanju s kodo VBA

Spodnja koda VBA vam pomaga hitro shraniti vsako stran v dokument kot hkrati posamezne datoteke PDF. Prosimo, naredite na naslednji način.

1. Odprite dokument, ki ga shranite kot posamezne strani ali določene strani 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 spodnjo kodo VBA v okno Modul.

VBA koda: Shranite vsako stran kot ločene pdf datoteke hkrati 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 ključ za zagon kode.

4. V Ljubljani Brskanje okno, izberite mapo za shranjevanje datotek PDF in kliknite na OK gumb. Prikaz slike:

5. V prvem Kutools for Word pogovorno okno, v polje za besedilo vnesite številko začetne strani vašega dokumenta in kliknite OK.

6. V drugem Kutools for Word v pogovornem oknu vnesite zadnjo številko strani vašega dokumenta in kliknite OK. Prikaz slike:

Opombe: Če želite le nekaj stalno shranjenih strani v dokumentu kot ločene datoteke PDF, kot so strani 4, 5 in 6, v zgornjih pogovornih oknih vnesite ločeno 4 in 6.

Ko zaženete kodo, pojdite na določeno mapo, ki ste jo izbrali v koraku 4, lahko vidite, da so vse strani razdeljene in shranjene kot posamezne datoteke PDF, kot je prikazano na sliki spodaj.

Priporočena orodja za produktivnost Worda

shot kutools beseda kutools zavihek 1180x121
shot kutools beseda kutools plus zavihek 1180x120

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.