Skip i'r prif gynnwys

Archwiliwch y newydd, fersiwn am ddim o Kutools ar gyfer Outlook heddiw!

Sut i arbed pob tudalen fel ffeiliau pdf ar wahân mewn dogfen Word?

Awdur: Siluvia Wedi'i Addasu Diwethaf: 2024-07-31

Wrth ddefnyddio dogfen Microsoft Word, gallwch arbed pob tudalen fel ffeiliau pdf ar wahân fesul un gyda'i swyddogaeth Save As adeiledig trwy nodi rhif y dudalen yn yr ymgom Opsiynau. Fodd bynnag, os oes angen rhannu cannoedd o dudalennau a'u cadw fel ffeiliau pdf unigol, sut allwch chi wneud? Mae'r erthygl hon yn darparu dull i chi ddatrys y broblem hon yn gyflym.

Cadwch bob tudalen fel ffeiliau pdf ar wahân mewn swmp gyda chod VBA

Cadwch bob tudalen fel ffeiliau pdf ar wahân mewn swmp gyda chod VBA

Mae'r cod VBA isod yn eich helpu i arbed pob tudalen mewn dogfen yn gyflym fel ffeiliau pdf unigol ar yr un pryd. Gwnewch fel a ganlyn.

1. Agorwch y ddogfen byddwch yn cadw pob tudalen neu dudalennau penodol fel ffeiliau pdf, yna pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwl, copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA: Cadwch bob tudalen fel ffeiliau pdf ar wahân ar yr un pryd mewn dogfen 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

Ffenestr VBA gyda Mewnosod > Modiwl wedi'i ddewis a chod VBA wedi'i gopïo i ffenestr y Modiwl

3. Gwasgwch y F5 allwedd i redeg y cod.

4. Yn y Pori ffenestr, dewiswch ffolder i gadw'r ffeiliau pdf a chliciwch ar y OK botwm. Gweler y screenshot:

Porwch ffenestr

5. Yn y cyntaf Kutools am Word blwch deialog, nodwch rif tudalen cychwyn eich dogfen yn y blwch testun a chlicio OK.

Kutools ar gyfer Word blwch deialog gyda blwch testun ar gyfer mynd i mewn i'r rhif tudalen gychwyn

6. Yn yr ail Kutools am Word blwch deialog, nodwch rif tudalen olaf eich dogfen, yna cliciwch OK. Gweler y screenshot:

Ail Kutools ar gyfer Word blwch deialog gyda blwch testun ar gyfer mynd i mewn i'r rhif tudalen olaf

Nodyn: Os ydych chi am arbed sawl tudalen yn barhaus mewn dogfen fel ffeiliau pdf ar wahân fel tudalennau 4, 5 a 6, nodwch 4 a 6 ar wahân yn y ddau flwch deialog uchod.

Ar ôl rhedeg y cod, ewch i'r ffolder penodedig a ddewisoch yng ngham 4, gallwch weld bod pob tudalen yn cael ei rhannu a'i chadw fel ffeiliau pdf unigol fel y dangosir isod.

Mae tudalennau'n cael eu rhannu a'u cadw fel ffeiliau pdf unigol

Rhannwch ac arbedwch bob tudalen o ddogfen fel dogfennau newydd ar wahân:

The Dogfen Hollt cyfleustodau Kutools ar gyfer Excel yn gallu'ch helpu chi i rannu ac arbed pob tudalen o'r ddogfen gyfredol yn hawdd mewn dogfen newydd ar wahân mewn swmp fel y dangosir y llun isod. Dadlwythwch a rhowch gynnig arni nawr!

Defnyddiwch cyfleustodau Dogfen Hollti Kutools i rannu dogfen yn ôl tudalennau yn gyflym

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Nodweddion Kutools AI: Cynorthwyydd AI / Cynorthwy-ydd Amser Real / Super Pwyleg (Cadw Fformat) / Super Translate (Cadw Fformat) / AI Golygu / AI Prawfddarllen...

📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...

✏ Golygu Cynnwys: Darganfod Swp ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...

🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...

⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...

Tabiau Kutools a Kutools Plus ar y Word Ribbon
???? Eisiau rhoi cynnig ar y nodweddion hyn? Dadlwythwch Kutools ar gyfer Word nawr! 🚀
 

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - 100+ Offer ar gyfer Word

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools