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 / paus

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 / paus

Om du bara vill dela ett Word-dokument för att separera Word-filen kan du försöka Kutools för WordÄr Split verktyget kan det dela ett dokument med rubrik 1, sidbrytning, sektionsbrytning eller sidor efter behov.

När du har installerat Kutools för Word, gör så här:（Gratis nedladdning Kutools för Word nu!)

1. klick Kutools Plus > Split.

2. I Dela dokument välj en mapp för att placera dokumenten och välj den typ du vill dela upp från Dela med listrutan.

3. klick OK. sedan öppnas mappen automatiskt efter delning. Nu har dokumentet delats upp i flera dokument.

Tabbad surfning och redigering av flera Word-dokument / Excel-arbetsböcker som Firefox, Chrome, Internet Explore 10!

Du kanske är bekant att visa flera webbsidor i Firefox / Chrome / IE och växla mellan dem genom att enkelt klicka på motsvarande flikar. Här stöder Office Tab liknande bearbetning, som låter dig bläddra i flera Word-dokument eller Excel-arbetsböcker i ett Word-fönster eller Excel-fönster och enkelt växla mellan dem genom att klicka på deras flikar. Klicka för gratis provversion av Office Tab!

Rekommenderade Word-produktivitetsverktyg