Note: The other languages of the website are Google-translated. Back to English

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.


Razdelite in shranite vsako stran dokumenta kot ločene nove dokumente:

O Razdeljeni dokument uporabnost Kutools za Excel vam lahko pomaga enostavno razdeliti in shraniti vsako stran trenutnega dokumenta kot ločen nov dokument v velikem obsegu, kot je prikazano na spodnji sliki zaslona. Prenesite in preizkusite zdaj! (60-dnevna prosta pot)


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. ...
Komentarji (19)
Ocenjeno 5 iz 5 · 3 ocene
Ta komentar je moderator na spletnem mestu minimiziral
navzdol naložil kutool za preizkus - nameščen in pri poskusu nečesa se beseda zapira in orodje nikoli ni delovalo.
Ta komentar je moderator na spletnem mestu minimiziral
Dober dan,
Hvala, da ste me obvestili o napaki, in se opravičujem za nevšečnosti. Bi posredovali svojo različico Worda? Težavo moramo odpraviti z več informacijami.
Ta komentar je moderator na spletnem mestu minimiziral
Salve, ho utilizzato i vostri preziosi suggerimenti e sono riuscito facilmente a generare in file singoli in pdf partendo da un file word di stampa union. Vorrei chiedere se è possibile nominare in posamezno datoteko pdf, vse po številki strani, con un nome specifico di un campo contenuto nel file di excel, če hočete uporabiti za stampa union. Sarebbe il massimo. Grazie mille
Ta komentar je moderator na spletnem mestu minimiziral
Kaj lahko storim, da shranim vsako stran s sklicevanjem v dokumentu in ne z imenom strani?
Ta komentar je moderator na spletnem mestu minimiziral
prelepo! Hvala, vaša navodila je enostavno slediti in opaziti. Prihranili ste nam veliko časa.
Ta komentar je moderator na spletnem mestu minimiziral
Kaj lahko storim, da shranim vsako stran s sklicevanjem v dokumentu in ne z imenom strani?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala! Meni je uspelo. Kaj lahko storim, da ga shranim v dvostranski PDF?
Ta komentar je moderator na spletnem mestu minimiziral
Que legal... aqui deu super certo!

Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Branje teh navodil mi je pomagalo dokončati projekt, ki bi trajal 2 ali več ur, v 20 minutah. Najlepša hvala!
Ocenjeno 5 iz 5
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Kyle Baldwin,
Z veseljem vam bomo pomagali rešiti vaš problem.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za skript, prihranil mi je tudi veliko dela pri izvažanju strani kot pdf!
Ocenjeno 5 iz 5
Ta komentar je moderator na spletnem mestu minimiziral
Dober dan!
Ali imate možnost shraniti datoteko (s pomočjo povezave) v datoteki pdf - Rešenja lastnikov na skupnem zbiranju.
Pri tem upoštevamo, da se mora PDF ohraniti takole: v 1 datoteki mora biti več listov (1 stanovanje), po tem modulu se strani shranjujejo v pdf, no razdeljeno
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Oprosti, ne razumem, kaj misliš. Morda boste morali priložiti posnetek zaslona ali vzorčno datoteko, da boste jasneje opisali težavo, na katero ste naleteli.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za to, to je super. Zanima me, ali lahko moje datoteke pdf poimenujete drugače za vsak izvleček, ne samo Page_1.pdf.

Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Živjo samir,
Kako želite poimenovati te pdf datoteke? Prosim, dajte mi primer.
Ta komentar je moderator na spletnem mestu minimiziral
Na primer shranjevanje vsakega dokumenta z drugim imenom, ne samo Page_1.pdf in tako naprej.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Camila,
Naslednja koda VBA vam lahko pomaga rešiti težavo.
Opombe: V tej vrstici morate določiti drugo ime: xFileName = "AA; BB; CC; DD". Tukaj so AA, BB in CC imena za datoteke PDF.
Spremenite jih, da bodo ustrezale vašim potrebam. Dodate lahko več imen in jih ločite s podpičjem. Naj omenim, da se mora število navedenih imen ujemati s številom strani, ki ste jih izpostavili. Datoteke PDF bodo poimenovane po vrstnem redu navedenih imen v kodi.
Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20221223
    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
    Dim xFileName As String
    Dim xNameArr() As String

    xFileName = "AA; BB; CC; DD"  'Specify a name for each page. The number of names specified must match the number of pages you exported.The PDF files will be named in order of the the specified names
    xNameArr = VBA.Split(xFileName, ";")
    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 & "\" & VBA.Trim(xNameArr(I - 1)) & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
    Erase xNameArr
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
10x :) to je bilo res koristno!!!
Ocenjeno 5 iz 5
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način za prihranek na 2 strani?

npr. shranite stran 1/2 v Page_1.pdf
shranite stran 3/4 v Page_2.pdf

Hvala!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL