Jak uložit každou stránku jako samostatný soubor PDF v dokumentu Word?
Při používání dokumentu Microsoft Word můžete každou stránku ukládat jako samostatné soubory PDF jeden po druhém pomocí vestavěné funkce Uložit jako. Jak však můžete postupovat, pokud je třeba rozdělit stovky stránek a uložit je jako jednotlivé soubory PDF? Tento článek poskytuje způsob, jak tento problém rychle vyřešit.
Uložte každou stránku jako samostatný soubor PDF hromadně pomocí kódu VBA
Uložte každou stránku jako samostatný soubor PDF hromadně pomocí kódu VBA
Níže uvedený kód VBA vám pomůže rychle uložit každou stránku v dokumentu jako jednotlivé soubory PDF současně. Postupujte prosím následovně.
1. Otevřete dokument, který uložíte každou stránku nebo konkrétní stránky jako soubory PDF, a poté stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, zkopírujte níže uvedený kód VBA do okna modulu.
Kód VBA: Uložte každou stránku jako samostatný soubor PDF současně v dokumentu 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. zmáčkni F5 klíč ke spuštění kódu.
4. V Procházet v okně vyberte složku pro uložení souborů PDF a klikněte na OK knoflík. Viz screenshot:
5. V první Kutools pro Word V dialogovém okně zadejte do textového pole číslo počáteční stránky dokumentu a klikněte na OK.
6. Ve druhé Kutools pro Word V dialogovém okně zadejte číslo poslední stránky dokumentu a klikněte na OK. Viz obrázek:
Poznámka: Pokud chcete v dokumentu uložit několik souvislých stránek jako samostatné soubory PDF, jako jsou stránky 4, 5 a 6, zadejte do výše uvedených dvou dialogových oken samostatně 4 a 6.
Po spuštění kódu přejděte do určené složky, kterou jste vybrali v kroku 4, můžete vidět, že všechny stránky jsou rozděleny a uloženy jako jednotlivé soubory PDF, jak je ukázáno níže.
Rozdělte a uložte každou stránku dokumentu jako samostatné nové dokumenty:
Projekt Rozdělit dokument užitečnost Kutools pro Excel vám pomůže snadno rozdělit a uložit každou stránku aktuálního dokumentu jako samostatný nový dokument hromadně, jak je ukázáno níže. Stáhněte si a vyzkoušejte! (60-denní stezka zdarma)
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF / Exportujte stránky jako obrázky / Tisk více souborů najednou...
✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...
🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Tabulka diagonálních čar / Titulek rovnice / Titulek obrázku / Titulek tabulky / Více obrázků / Objevte více v Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje...