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

Kako razdeliti Wordov dokument in shraniti kot ločeno datoteko PDF?

V Wordu lahko celoten dokument shranite v datoteko PDF, vendar ste kdaj poskusili razdeliti dokument in nato shraniti strani kot ločeno datoteko PDF? V tem članku bom predstavil metode za hitro reševanje tega dela.

Razdelite Wordov dokument in shranite kot ločeno datoteko PDF z VBA

Razdelite Wordov dokument, da ločite datoteke po straneh/naslovu1/prelomu in nato shranite kot PDF


Razdelite Wordov dokument in shranite kot ločeno datoteko PDF z VBA

Tu vam lahko koda VBA pomaga neposredno razdeliti Wordov dokument po straneh in shraniti kot ločene datoteke PDF.

1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v Moduli okno.

VBA: Shranite Word kot ločen PDF

Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20181120
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\Page_" & I & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

3. Pritisnite F5 tipko, v pogovornem oknu Brskaj izberite mapo, kamor želite shraniti datoteke PDF.
doc split shrani pdf 1

4. klik OK, nato vnesite številke strani, ki jih želite razdeliti med začetkom in koncem.

doc split shrani pdf 2 doc split shrani pdf 3

5. klik OK. Zdaj so bile strani shranjene kot ločene datoteke PDF.
doc split shrani pdf 4


Razdelite Wordov dokument, da ločite datoteke po straneh/naslovu1/prelomu in nato shranite kot PDF

Če niste seznanjeni s kodo VBA, lahko poskusite uporabiti orodje za dodatek – Kutools za Word, njeno Split funkcija vam lahko pomaga razdeliti Wordov dokument na strani na podlagi prelomov strani, številk strani, naslova1, prelomov razdelkov, vsake n-te strani in številke strani po meri, ki jo določite, nato pa uporabite Pretvornik oblike dokumenta za paketno pretvorbo razdeljenih Wordovih dokumentov v PDF.

Kutools za Word, z več kot
100
 priročne funkcije, vam olajša delo. 

Po namestitvi Kutools za Word, naredite spodaj:(Brezplačno prenesite Kutools za Word zdaj!)

1. Omogočite Wordov dokument, ki ga želite pretvoriti v razdeljen, kliknite Kutools Plus > Split.
doc shrani kot pdf 2

2. V Ljubljani Razdeljeni dokument izberite pravilo razdelitve, kot ga potrebujete, v razdelku Razdeli po. Nato določite mesto shranjevanja in predpono datoteke razdeljenega dokumenta. Kliknite Ok.

v Razdeljeno po razdelku ponuja 6 vrst cepljenja. Za več podrobnosti o vsaki vrsti cepitve obiščite uvedba funkcije.

Zdaj so razdeljeni dokumenti shranjeni na določeno mesto.

3. Po razdelitvi dokumenta kliknite Kutools Plus > Doc / Docx.

4. V Ljubljani Pretvornik oblike dokumenta pogovorno okno, izberite Pretvorite Docx v PDF obrazec Pretvornik formatov spustni seznam, kliknite znak plus, da dodate datoteke ali mape, ki vsebujejo dokumente, ki jih želite pretvoriti v PDF, nato določite druge nastavitve, kot jih potrebujete (privzeto shrani datoteke PDF v izvorno mapo, lahko jo spremenite ). Kliknite Ok.

Zdaj so Wordovi dokumenti pretvorjeni v datoteke PDF.


Brskanje in urejanje več Wordovih dokumentov / delovnih zvezkov Excel kot Firefox, Chrome, Internet Explore 10!

V Firefoxu / Chromeu / IE si morda že želite ogledati več spletnih strani in med njimi preklapljati tako, da enostavno kliknete ustrezne zavihke. Tu Office Tab podpira podobno obdelavo, ki omogoča brskanje po več Wordovih dokumentih ali Excelovih delovnih zvezkih v enem Wordovem oknu ali Excelovem oknu in enostavno preklapljanje med njimi s klikom na njihove zavihke.
Kliknite brezplačno preskusno različico zavihka Office!

Brskajte po več besednih dokumentih v enem oknu kot Firefox

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 (25)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Koda VBA ne deluje. Ves čas govori "vnesite številko prave strani. Wordov dokument je dolg 3 strani. Dodal sem 1 in 3 v sporočilna polja in dobil napako.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Nico, znova moram poskusiti s kodo, deluje v oknu moje različice 10 64 2016, katero različico uporabljate?
Ta komentar je moderator na spletnem mestu minimiziral
nicou mora vnesti strani, ki jih želite pretvoriti...tj. 1 (na prvem zaslonu s pozivom), nato na zaslonu 10. poziva. to sem naredil in koda je lepo delovala. Hvala Sunny za to delitev
Ta komentar je moderator na spletnem mestu minimiziral
ali obstaja način za poimenovanje datotek iz besedila v dokumentu namesto strani 1, strani 2 itd?
Ta komentar je moderator na spletnem mestu minimiziral
Žal nimam pojma.
Ta komentar je moderator na spletnem mestu minimiziral
Če lahko kdo pomaga pri tem ... Mislim, da moram narediti isto ... PRIMER UPORABE: Imam word dokument s 100 stranmi. Vsaka stran je rezultat spajanja pošte, zato so vse strani enake, razen nekaj besed. Na vrhu vsake strani piše: "Spoštovani " kje je na vsaki strani zamenjano z drugim imenom.ex:- Draga Becky- Dragi Nico- Draga Sunny- Dragi jgall7804
Trenutno ta koda izpisuje datoteke kot:
- Stran_1.pdf- Stran_2.pdf- Stran_3.pdf
Vem, da lahko spremenim vrstico 16, kjer piše "\Page_", da rečemo "\Foo_"... tako da bo rezultat
- Foo_1.pdf- Foo_2.pdf
Ampak sprašujem (in jgall7804, Ines in drugi)... če lahko nekdo z boljšimi/pametnejšimi veščinami VBA napiše kodo, ki bo izšla kot:- becky.pdf- nico.pdf- sunny.pdf- jgall7804. pdf
to pomeni, da na vsaki strani poiščite 2. besedo (ali 1. besedo ali 10. besedo) in to besedo uporabite kot ime datoteke.
Ima kdo kakšne misli?
Ta komentar je moderator na spletnem mestu minimiziral
To lahko storite s funkcijo REN, če odprete CMD v mapi s shranjenimi dokumenti
Ta komentar je moderator na spletnem mestu minimiziral
OMG, rešil si mi življenje. Vedno moram združiti črke v wordu in nato vsako posebej shraniti v PDF. Mojih zadnjih 40 črk je bilo tako hitrih!!! :)
Ta komentar je moderator na spletnem mestu minimiziral
Namesto da bi vsako stran shranil kot ločen dokument, kako naj kodo shranim vsake 2 ali 3 strani kot ločen dokument.
Ta komentar je moderator na spletnem mestu minimiziral
Ne morem najti kode za obravnavo vašega dela. Preizkusite Kutools za Word, brezplačen je za uporabo v 60 dneh
Ta komentar je moderator na spletnem mestu minimiziral
Prosimo za razlago : (Preimenovanje dokumenta) To lahko storite s funkcijo REN, če odprete CMD v mapi s shranjenimi dokumenti - in tudi 2 strani dokumentov v en pdf
Ta komentar je moderator na spletnem mestu minimiziral
Imel sem možnost razdeliti dokument, potrebujem napotke, če želim shraniti dokument s posameznim imenom
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja tudi možnost shranjevanja datotek ne kot stran 1 ali stran 2, vendar z imenom, ki temelji na vsebini strani?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, ko kliknem v redu, zaslon izgine, vendar se nič ne shrani? Ali moram nekje omogočiti še kakšno nastavitev?
Prav tako gre shranjeno v mojo lokalno mapo One Drive, če je to morda težava? Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Zelo uporaben in enostaven za uporabo nasvet. Prihranil mi je veliko časa. Najlepša hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,
Ali je mogoče spremeniti le modul za fractionner le fichier word en PDF toutes les 24 pages ?

Merci de votre aide
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, TEILLET, uporabiš lahko Kutools for Wordovo funkcijo razdeli dokument in izbereš vsakih n strani v razdelku Razdeli po, nato vneseš 24 v besedilno polje Vsakih n strani, določiš druge nastavitve, nato klikneš V redu, vsakih 24 strani bo ločenih kot ena en sam dokument. Nato uporabite Preizkusite funkcijo Doc/Docx v programu Kutools for Excel in izberite Pretvori Docx v PDF v razdelku Pretvori oblike in izberite eno mesto za shranjevanje, kliknite V redu, zdaj je vsakih 24 strani shranjenih kot PDF.
Nadgradili smo funkcije v Kutools for Word, vendar ta članek ni bil posodobljen, zato so posnetki zaslona stari. Kmalu bomo posodobili vsebino, lahko sledite korakom, da dosežete.


Kutools for Word je brezplačen v 60 dneh, morda boste našli uporabnejše orodje. Brezplačen prenos
Ta komentar je moderator na spletnem mestu minimiziral
Hi,

Ta koda razdeli spajanje dokumentov v posamezne datoteke PDF. Toda prvi 2 strani moram razdeliti kot en dokument. Pomeni, če je 12 strani, potrebujem 6 dokumentov PDF. Komplet 2 v eno datoteko PDF. Trenutno ga ta koda razdeli na 12 posameznih datotek. Prosim za nasvet, kaj naj spremenim v kodi.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, SAROJ, predlagam, da uporabite orodja v Kutools for Word, koraki so enaki kot moj odgovor za TEILLET
Ta komentar je moderator na spletnem mestu minimiziral
Kérnék részlete leírást arról, hogy hogyan tudom elnevezni a létrehozott dokumentumokat egy lépésben, akár VBA-val.
Köszönöm.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, poskusi to vba
Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20221122
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xName As String
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            xName = InputBox("Page: " & I, "Enter the name for this page")
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\" & xName & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

Datoteke pdf boste preimenovali eno za drugo v pogovornem oknu za izpiranje med uporabo vba.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Sunny,

Ali morda poznate kodo za ime datoteke, ki bo vzeta iz tretje vrstice datoteke? ali določeno lokacijo?

Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, poskusi to vba
Sub SaveAsSeparatePDFs()

'UpdatebyExtendoffice20221221
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xStrName As String
    Dim xPath As String
'    On Error Resume Next

    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
                Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=I
                Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Name:=3 - 1
                Selection.Extend
                Selection.EndKey Unit:=wdLine
                Selection.EscapeKey
   
                xStrName = Selection.Range
                xStrName = Replace(xStrName, " ", "")
                xStrName = Replace(xStrName, vbLf, "")
                xStrName = Replace(xStrName, Chr(10), "")
                xStrName = Replace(xStrName, Chr(13), "")
                xStrName = Replace(xStrName, "\", "")
                xStrName = Replace(xStrName, "/", "")
                xStrName = Replace(xStrName, ":", "")
                xStrName = Replace(xStrName, "*", "")
                xStrName = Replace(xStrName, "?", "")
                xStrName = Replace(xStrName, "<", "")
                xStrName = Replace(xStrName, ">", "")
                xStrName = Replace(xStrName, "|", "")
                xStrName = Replace(xStrName, """", "")
                If xStrName = "" Then
                    xStrName = I
                End If
                xPath = xFolder & "\" & xStrName & ".pdf"
                ActiveDocument.ExportAsFixedFormat OutputFileName:=xPath, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
End Sub

Če je v tretji vrstici prazno, bo datoteka pdf poimenovana s številko.
Ta komentar je moderator na spletnem mestu minimiziral
Kedves Napos!

Ez a kód már majdnem tökéletes, a fájl elnevezéséből még ki kellene valahogyan szedni a Az eszközökért felelős személy neve részt, és akkor csak a dolgozó neve maradna.
Köszönöm szépen!

minimorisz
Ta komentar je moderator na spletnem mestu minimiziral
Kedves Napos!

Mostmár majdnem tökéletes a kód ahhoz, amit szeretnék. A 9. sorból szeretném a fájl nevét venni, de csak a 20. karaktertől.

Ez megoldható lenne?

Nagyon szépen köszönöm.

minimorisz
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