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

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

Wrth ddefnyddio dogfen Microsoft Word, gallwch arbed pob tudalen fel ffeiliau pdf ar wahân fesul un gyda'i swyddogaeth Save As. Fodd bynnag, os oes cannoedd o dudalennau angen eu rhannu 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

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:

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

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

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.


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

Mae 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! (llwybr 60 diwrnod am ddim)


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (13)
Wedi graddio 5 allan o 5 · Graddfeydd 2
Lleihawyd y sylw hwn gan y safonwr ar y wefan
i lawr llwytho'r kutools ar gyfer treial - gosod ac wrth geisio rhywbeth mae'r gair yn cau ac nid yw'r offeryn byth yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Diolch i adael i mi wybod y byg, ac mae'n ddrwg gennyf am yr anghyfleustra. A fyddech chi'n darparu eich fersiwn Word? Mae angen inni ddarganfod y broblem gyda mwy o wybodaeth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Arbed, ho utilizato i vostri preziosi suggerimenti e sono riscito hwyluso a generare i ffeil singoli in pdf partendo da un file word di print unione. Vorrei chiedere se è possibile nominare a singoli file pdf, al posto del numero di pagina, con un nome specifico di un campo contenuto nel file di excel che ho utilizato per stampa unione. Sarebbe il massimo. Grazie mille
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth allaf ei wneud i gadw pob tudalen gyda chyfeirnod yn y ddogfen ac nid yn ôl enw tudalen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hardd! Diolch, mae'ch cyfarwyddiadau yn hawdd i'w dilyn a'u gweld. Rydych chi wedi arbed llawer o amser i ni.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth allaf ei wneud i gadw pob tudalen gyda chyfeirnod yn y ddogfen ac nid yn ôl enw tudalen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Fe weithiodd i mi. Beth alla i ei wneud i'w gadw mewn PDF dwy ochr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gyfreithiol... aqui deu super certo!

diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae darllen y cyfarwyddiadau hyn wedi fy helpu i gwblhau prosiect a fyddai wedi cymryd 2 awr neu fwy, mewn 20 munud. Diolch yn fawr iawn!
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Kyle Baldwin,
Byddai'n bleser gennym helpu i ddatrys eich problem.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y sgript, mae hefyd wedi arbed llawer o waith i mi wrth allforio tudalennau fel pdf!
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddiwrnod da!
Есть ли возможность сохранить из ворд файла(используя слияние) yn пдф файл - Решения собственоние.
При этом учитываем, что PDF должен сохраняться так: в 1 файле должно быть несколько листов (1 квартира), по данному модулю страницы сохраняются в пдф, но раздельно
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'n ddrwg gennyf nad wyf yn deall yr hyn yr ydych yn ei olygu. Efallai y bydd angen i chi atodi ciplun neu ffeil sampl i ddisgrifio'r broblem y daethoch chi ar ei thraws yn gliriach.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir