Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս բաժանել Word փաստաթուղթը և պահպանել որպես առանձին PDF ֆայլ:

Word- ում դուք կարող եք ամբողջ փաստաթուղթը պահել PDF ֆայլում, բայց երբևէ փորձե՞լ եք բաժանել փաստաթուղթը, այնուհետև պահպանել էջերը որպես առանձին PDF ֆայլ: Այս հոդվածում ես կներկայացնեմ այս աշխատանքը արագ լուծելու մեթոդները:

Բաժանեք Word փաստաթուղթը և որպես առանձին PDF ֆայլ պահեք VBA- ով

Բաժանեք Word փաստաթուղթը՝ ֆայլերն ըստ էջերի/վերնագրի1/ բաժանելու համար, այնուհետև պահպանեք որպես PDF

Բաժանեք Word փաստաթուղթը և որպես առանձին PDF ֆայլ պահեք VBA- ով

Այստեղ VBA կոդը կարող է օգնել ձեզ ուղղակիորեն բաժանել Word- ի փաստաթուղթը էջերով, ապա պահպանել որպես առանձին PDF ֆայլեր:

1. Մամուլ Alt + F11 հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, պատճենեք և կպցրեք կոդը ներքևում Մոդուլներ պատուհան.

VBA. Խնայեք Word- ը որպես առանձին 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. Մամուլ F5 ստեղնը, rowննարկել երկխոսության մեջ, ընտրեք պանակ ՝ PDF ֆայլերը տեղադրելու համար:
doc պառակտում փրկել pdf 1

4: սեղմեք OK, ապա մուտքագրեք էջի համարները, որոնք ցանկանում եք բաժանել սկիզբը և ավարտը:

doc պառակտում փրկել pdf 2 doc պառակտում փրկել pdf 3

5: սեղմեք OK, Այժմ էջերը պահվել են որպես առանձին PDF ֆայլեր:
doc պառակտում փրկել pdf 4

Բաժանեք Word փաստաթուղթը՝ ֆայլերն ըստ էջերի/վերնագրի1/ բաժանելու համար, այնուհետև պահպանեք որպես PDF

Եթե ​​դուք ծանոթ չեք VBA կոդին, կարող եք փորձել օգտագործել հավելյալ գործիք. Kutools բառի համար, նրա պառակտում հատկությունը կարող է օգնել ձեզ բաժանել Word փաստաթուղթը էջերի՝ հիմնված էջերի ընդմիջումների, էջի համարների, վերնագրի 1-ի, հատվածի ընդմիջումների, յուրաքանչյուր n-րդ էջի և ձեր նշած հատուկ էջի համարի վրա, այնուհետև կիրառեք Փաստաթղթի ձևաչափի փոխարկիչ բաժանված Word փաստաթղթերը PDF-ի խմբաքանակ փոխակերպելու համար:

Տեղադրելուց հետո Kutools Word- ի համար, խնդրում ենք վարվել ինչպես ստորև ՝Download Անվճար ներբեռնեք Kutools- ը Word- ի համար:)

1. Միացրեք Word փաստաթուղթը, որը ցանկանում եք փոխարկել պառակտման, սեղմեք Kutools Plus > պառակտում.

2. Մեջ Պառակտված փաստաթուղթ երկխոսություն, ընտրեք պառակտման կանոնը, ինչպես ձեզ անհրաժեշտ է Բաժանել ըստ բաժնում: Այնուհետև նշեք պահպանման վայրը և բաժանված փաստաթղթի ֆայլի նախածանցը: Սեղմել Ok.

Է Բաժանվել է բաժինը, այն ձեզ համար տրամադրում է բաժանման 6 տեսակ: Յուրաքանչյուր բաժանման տեսակի մասին լրացուցիչ մանրամասների համար այցելեք հատկանիշի ներածություն.

Այժմ բաժանված փաստաթղթերը պահպանվել են նշված վայրում:

3. Փաստաթուղթը բաժանելուց հետո սեղմեք Kutools Plus > Doc / Docx.

4. Մեջ Փաստաթղթի ձևաչափի փոխարկիչ երկխոսություն, ընտրեք Փոխակերպեք Docx- ը PDF- ի ձեւ Ձեւաչափիչ բացվող ցանկը, սեղմեք գումարած նշանը՝ ավելացնելու ֆայլեր կամ թղթապանակներ, որոնք պարունակում են փաստաթղթերը, որոնք ցանկանում եք փոխարկել PDF-ի, այնուհետև նշեք այլ կարգավորումներ, ինչպես ձեզ հարկավոր է (կանխադրված, այն պահպանում է PDF ֆայլերը սկզբնաղբյուր թղթապանակում, կարող եք փոխել այն: ). Սեղմել Ok.

Այժմ Word փաստաթղթերը վերածվել են PDF ֆայլերի:

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

✏ Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

➕ Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

⭐ Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀
 
Comments (27)
No ratings yet. Be the first to rate!
Muhammet İsa
Muhammet İsa
This comment was minimized by the moderator on the site
Very useful. I appreciate the work. Wish we can select how many pages for a split
Reply
0
0
Sunny
Sunny     Muhammet İsa
This comment was minimized by the moderator on the site
Hi, the Split feature already support split specific pages and save as PDF only.
Choose Custom from the drop-down list in Split by section, then type the pasge numbers seperated by commas in the Page textbox, please see screenshot:
https://www.extendoffice.com/images/stories/comments/sun-comment/split-word-1.png?1702630242000
Reply
Report
0
0
minimorisz
minimorisz
This comment was minimized by the moderator on the site
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
Reply
0
0
Sunny
Sunny
This comment was minimized by the moderator on the site
Hi, try this 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

You will rename the pdf file one by one in the poping dialog while applying the vba.
Reply
Report
0
0
Alice
Alice     Sunny
This comment was minimized by the moderator on the site
Hi Sunny,

any chance you know the code for the file name to be taken from the Third line of the file? or a specific location?

thank you!
Reply
0
0
Sunny
Sunny     Alice
This comment was minimized by the moderator on the site
Hi, try this 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

If there is empty in the third line, the pdf file will be named with number.
Reply
Report
0
0
minimorisz
minimorisz     Sunny
This comment was minimized by the moderator on the site
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
Reply
0
0
minimorisz
minimorisz
This comment was minimized by the moderator on the site
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.
Reply
0
0
SAROJ
SAROJ
This comment was minimized by the moderator on the site
Hi,

This code spilts the mail merge into individual PDF's. But I need to split the first 2 pages as one doc. Means if there are 12 pages I need 6 PDF docs. A set of 2 into one PDF file. Right now this code splits it into 12 individual files. Please advise what should I change in the code.
Reply
0
0
Sunny
Sunny     SAROJ
This comment was minimized by the moderator on the site
Hi, SAROJ, I suggest that using tools in Kutools for Word, steps are the same as my reply for TEILLET
Reply
Report
0
0
TEILLET
TEILLET
This comment was minimized by the moderator on the site
Bonjour,
Est-il possible de changer le module pour fractionner le fichier word en PDF toutes les 24 pages ?

Merci de votre aide
Reply
0
0
Sunny
Sunny     TEILLET
This comment was minimized by the moderator on the site
Hi, TEILLET, you can apply Kutools for Word's Split Document feature, and choose every n pages in the Split by section, then type 24 into Every n pages textbox, specify other settings, then click Ok, every 24 pages will be seperated as one single document. Then apply You should try Doc/Docx feature of Kutools for Excel, and choose Convert Docx to PDF from Format Convert section, and choose one location to save, click Ok, now every 24 page has been saved as PDF.
We have upgraded the features in Kutools for Word, but this article has not update, so the screenshots are old. We will update the contents soon, you can follow the steps to achieve.


Kutools for Word is free in 60-day, you may find more useful tool. Free Download
Reply
Report
0
0
HS
HS
This comment was minimized by the moderator on the site
Very helpful and easy to use tip. Saved me a lot of time. Thank you so much.
Reply
0
0
Sean
Sean
This comment was minimized by the moderator on the site
Hello,When I click okay, the screen disappears but nothing is saved?Is there another setting I need to enable somewhere?
Also, the save to goes to my One Drive local folder, if that might be an issue?Thanks
Reply
0
0
Ines
Ines
This comment was minimized by the moderator on the site
Is there also a possibility to save the files not as Page 1 or Page 2, but with a name based on the content of the page?
Reply
0
0
TUSHAR
TUSHAR
This comment was minimized by the moderator on the site
I had able split document, need the guidance if i want to save the document with individual name
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations