Hur delar jag ett Word-dokument och sparar som separat PDF-fil?
I Word kan du spara hela dokumentet i en PDF-fil, men har du någonsin försökt dela upp dokumentet och sedan spara sidorna som separat PDF-fil? I den här artikeln kommer jag att introducera metoderna för att snabbt lösa detta jobb.
Dela ett Word-dokument och spara som separat PDF-fil med VBA
Dela ett Word-dokument för att separera filer efter sidor/rubrik1/ brytning och spara sedan som PDF
Dela ett Word-dokument och spara som separat PDF-fil med VBA
Här kan VBA-koden hjälpa dig att dela upp ett Word-dokument direkt med sidor och sedan spara som separata PDF-filer.
1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulerna, kopiera och klistra in koden nedan till Modulerna fönster.
VBA: Spara Word som separat 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. Tryck F5 i dialogrutan Bläddra, välj en mapp för att placera PDF-filerna.
4. klick OK, ange sedan sidnumren du vill dela start och slut.
5. klick OK. Nu har sidorna sparats som separata PDF-filer.
Dela ett Word-dokument för att separera filer efter sidor/rubrik1/ brytning och spara sedan som PDF
Om du inte är bekant med VBA-kod kan du prova att använda ett tilläggsverktyg – Kutools för Word, dess Split funktionen kan hjälpa dig att dela upp ett Word-dokument i sidor baserat på sidbrytningar, sidnummer, rubrik1, avsnittsbrytningar, var n:e sida och anpassat sidnummer som du anger, och använd sedan Dokumentformatkonverterare att batchkonvertera de delade Word-dokumenten till PDF.
När du har installerat Kutools för Word, gör så här:(Gratis nedladdning Kutools för Word nu!)
1. Aktivera Word-dokumentet som du vill konvertera till split, klicka Kutools Plus > Split.
2. I Dela dokument dialogrutan, välj den delningsregel som du behöver i avsnittet Dela efter. Ange sedan lagringsplatsen och prefixet för delad dokumentfil. Klick Ok.
I Dela med sektionen, ger den 6 uppdelningstyper för dig. För mer information om varje delningstyp, vänligen besök funktionsintroduktion.
Nu har de delade dokumenten sparats på angiven plats.
3. Efter delat dokument, klicka Kutools Plus > Doc / Docx.
4. I Dokumentformatkonverterare dialog, välj Konvertera Docx till PDF formen Format Converter rullgardinsmenyn, klicka på plustecknet för att lägga till filer eller mappar som innehåller de dokument du vill konvertera till PDF, och ange sedan andra inställningar som du behöver (som standard sparar den PDF-filerna i källmappen, du kan ändra det ). Klick Ok.
Nu har Word-dokumenten konverterats till PDF-filer.
Bästa kontorsproduktivitetsverktyg
Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!
🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll / Skriv om text / Sammanfatta dokument / Fråga för information baserat på dokument, allt i Word
📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF / Exportera sidor som bilder / Skriv ut flera filer samtidigt...
✏ Innehållsredigering: Batch Hitta och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...
🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Alla rubriker / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till vår Ta bort gruppen...
➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Diagonal linjebord / Bildtext för ekvation / Bild Bildtext / Tabelltextning / Flera bilder / Upptäck mer i Infoga grupp...
🔍 Precisionsval: Precisera specifika sidor / Tabellerna / former / rubrikerna / Förbättra navigering med mer Välj funktioner...
⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst / infoga repetitiv text automatiskt / växla sömlöst mellan dokumentfönster / 11 Konverteringsverktyg...