Hogyan mentse el az egyes oldalakat külön pdf fájlként egy Word dokumentumban?
A Microsoft Word dokumentum használata közben minden egyes oldalt külön PDF fájlként menthet el a beépített Mentés másként funkcióval. Ha azonban több száz oldalt kell szétválasztani és el kell menteni egyedi pdf fájlként, akkor hogyan teheti meg? Ez a cikk módszert kínál a probléma gyors megoldására.
Minden oldalt külön pdf fájlként menthet el tömegesen VBA kóddal
Minden oldalt külön pdf fájlként menthet el tömegesen VBA kóddal
Az alábbi VBA-kód segít abban, hogy a dokumentum minden egyes oldalát egyszerre külön PDF fájlként mentse el. Kérjük, tegye a következőket.
1. Nyissa meg a dokumentumot, amely minden egyes oldalt vagy egyes oldalakat pdf fájlként ment el, majd nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modul, másolja a VBA kód alatt a Modul ablakba.
VBA kód: Minden oldalt külön PDF fájlként menthet el egyidejűleg egy Word dokumentumba
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. megnyomni a F5 gombot a kód futtatásához.
4. Ban,-ben Tallózás ablakban válasszon egy mappát a pdf fájlok mentéséhez, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
5. Az elsőben Kutools for Word párbeszédpanelen írja be a dokumentum kezdőlapjának számát a szövegmezőbe, majd kattintson a gombra OK.
6. A másodikban Kutools for Word párbeszédpanelen adja meg a dokumentum utolsó oldalszámát, majd kattintson a gombra OK. Lásd screenshot:
Megjegyzések: Ha csak folyamatosan szeretne több oldalt menteni a dokumentumba külön pdf fájlként, mint például a 4., 5. és 6. oldal, kérjük, írja be külön a 4-et és a 6-ot a fenti két párbeszédpanelbe.
A kód futtatása után lépjen a 4. lépésben kiválasztott megadott mappába, és láthatja, hogy az összes oldal fel van osztva és el vannak mentve egyedi pdf fájlként, az alábbi képernyőképen.
A dokumentum minden oldalának felosztása és mentése különálló új dokumentumokként:
A Osztott dokumentum hasznossága Kutools az Excel számára segíthet az aktuális dokumentum minden oldalának egyszerű felosztásában és különálló új dokumentumként történő tömeges mentésében, ahogy az alábbi képernyőképen látható. Töltse le és próbálja ki most! (60-napos ingyenes túra)
A legjobb irodai hatékonyságnövelő eszközök
Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!
🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása / Szöveg átírása / Összefoglalja a dokumentumokat / Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be / Oldalak exportálása képként / Nyomtasson több fájlt egyszerre...
✏ Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...
🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Minden fejléc / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...
➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Átlós vonal táblázat / Egyenletfelirat / Képfelirat / Táblázat felirata / Több kép / Fedezzen fel többet a Csoport beszúrása...
???? Precíziós kiválasztás: Pontosan konkrét oldalak / asztalok / formák / címsor bekezdései / A navigáció javítása a következővel: több Jelölje ki a funkciókat...
⭐ Star Enhancements: Gyorsan navigáljon bármely helyre / ismétlődő szöveg automatikus beszúrása / zökkenőmentesen válthat a dokumentumablakok között / 11 Konverziós eszközök...