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

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.
doc split spara pdf 1

4. klick OK, ange sedan sidnumren du vill dela start och slut.

doc split spara pdf 2 doc split spara pdf 3

5. klick OK. Nu har sidorna sparats som separata PDF-filer.
doc split spara pdf 4


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 for 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.

Kutools for Word, med mer än
100
 praktiska funktioner, underlättar dina jobb. 

När du har installerat Kutools for Word, gör enligt nedan:(Gratis nedladdning Kutools for Word Nu!)

1. Aktivera Word-dokumentet som du vill konvertera till split, klicka Kutools Plus > Split.
doc spara som pdf 2

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.


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!

Bläddra i flera orddokument i ett fönster som Firefox

Rekommenderade Word-produktivitetsverktyg

 

Kutools For Word - Mer än 100 avancerade funktioner för Word, spara 50 % tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...

 

Sortera kommentarer efter
Kommentarer (25)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
VBA-koden fungerar inte. Säger hela tiden "skriv in rätt sidnummer. Word-dokumentet är 3 sidor långt. Jag lade till 1 och 3 i meddelanderutorna och fick felet.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Nico, jag har provat koden igen, den fungerar i min version fönster 10 64 2016, vilken version använder du?
Denna kommentar minimerades av moderatoren på webbplatsen
nicou ska mata in sidorna som du vill konvertera...dvs 1 (på första uppmaningsskärmen) sedan i den andra uppmaningsskärmen. det är vad jag gjorde och koden fungerade utmärkt. Tack Sunny för denna delning
Denna kommentar minimerades av moderatoren på webbplatsen
finns det något sätt att namnge filerna från text i dokumentet istället för sida 1, sida 2, etc?
Denna kommentar minimerades av moderatoren på webbplatsen
Tyvärr har jag ingen aning.
Denna kommentar minimerades av moderatoren på webbplatsen
Om någon kan hjälpa till med det här... Jag tror att jag måste göra samma sak... ANVÄNDNINGSSÄTT: Jag har ett worddokument med 100 sidor. Varje sida är resultatet av en sammanslagning, så alla sidor är identiska förutom några få ord. Överst på varje sida står det "Kära " var ersätts med ett annat namn på varje sida.ex:- Kära Becky- Kära Nico- Kära Sunny- Kära jgall7804
För närvarande matar den här koden ut filer som:
- Sida_1.pdf- Sida_2.pdf- Sida_3.pdf
Jag vet att jag kan ändra rad 16 där det står "\Page_" för att säga "\Foo_"... så att utdata blir
- Foo_1.pdf- Foo_2.pdf
Men jag frågar (och jgall7804, och Ines, och andra)... om någon med bättre/smartare VBA-kunskaper kan skriva koden som kommer att matas ut som:- becky.pdf- nico.pdf- sunnny.pdf- jgall7804. pdf
det vill säga hitta det 2:a ordet (eller 1:a ordet eller 10:e ordet) på varje sida och använd det ordet som namn på filen.
Någon har några tankar?
Denna kommentar minimerades av moderatoren på webbplatsen
Du kan göra detta med REN-funktionen om du öppnar CMD i mappen med dokumenten sparade
Denna kommentar minimerades av moderatoren på webbplatsen
OMG, du räddade mitt liv. Jag behöver alltid slå samman bokstäver i Word och sedan spara var och en individuellt i PDF. Mina senaste 40 brev var så snabba!!! :)
Denna kommentar minimerades av moderatoren på webbplatsen
Istället för att spara varje sida som ett separat dokument, hur får jag koden att spara varannan eller var tredje sida som ett separat dokument.
Denna kommentar minimerades av moderatoren på webbplatsen
Kan inte hitta koden för att hantera ditt jobb nu. Prova Kutools for Word, det är gratis att använda på 60 dagar
Denna kommentar minimerades av moderatoren på webbplatsen
Förklara vänligen: (Byt namn på dokument) Du kan göra detta med REN-funktionen om du öppnar CMD i mappen med dokumenten sparade - och även 2 sidor dokument i en pdf
Denna kommentar minimerades av moderatoren på webbplatsen
Jag kunde dela dokument, behöver vägledning om jag vill spara dokumentet med individuellt namn
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det även möjlighet att spara filerna inte som sida 1 eller sida 2, men med ett namn baserat på sidans innehåll?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej! När jag klickar på OK försvinner skärmen men ingenting sparas? Finns det någon annan inställning som jag måste aktivera någonstans?
Sparandet till går också till min lokala One Drive-mapp, om det kan vara ett problem? Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Mycket hjälpsamt och lättanvänt tips. Sparade mig mycket tid. Tack så mycket.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej!
Est-il possible de changer le modul pour fractionner le fichier word en PDF toutes les 24 pages ?

Merci de votre aide
Denna kommentar minimerades av moderatoren på webbplatsen
Hej TEILLET, du kan ansöka Kutools for Words Dela dokument-funktion och välj var n:e sida i sektionen Dela upp efter, skriv sedan 24 i textrutan Varje n sida, ange andra inställningar och klicka sedan på Ok, var 24:e sida kommer att separeras som ett enda dokument. Använd sedan Du bör prova Doc/Docx-funktionen i Kutools for Excel, och välj Konvertera Docx till PDF från avsnittet Format Convert, och välj en plats att spara, klicka på Ok, nu har var 24:e sida sparats som PDF.
Vi har uppgraderat funktionerna i Kutools for Word, men den här artikeln har inte uppdaterats, så skärmdumparna är gamla. Vi kommer att uppdatera innehållet snart, du kan följa stegen för att uppnå.


Kutools for Word är gratis på 60 dagar, kan du hitta ett mer användbart verktyg. Gratis nedladdning
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,

Den här koden spelar ut sammanslagningen till enskilda PDF-filer. Men jag måste dela upp de två första sidorna som ett dokument. Betyder att om det finns 2 sidor behöver jag 12 PDF-dokument. En uppsättning av 6 i en PDF-fil. Just nu delar denna kod upp den i 2 enskilda filer. Vänligen meddela vad jag ska ändra i koden.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, SAROJ, jag föreslår att du använder verktyg i Kutools for Word, stegen är desamma som mitt svar för TEILLET
Denna kommentar minimerades av moderatoren på webbplatsen
Kérnék részlete leírást arról, hogy hogyan tudom elnevezni a létrehozott dokumentumokat egy lépésben, akár VBA-val.
Köszönöm.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, prova denna vba
Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20221122
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xName As String
    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
            xName = InputBox("Page: " & I, "Enter the name for this page")
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\" & xName & ".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

Du kommer att byta namn på pdf-filen en efter en i popup-dialogrutan medan du använder vba.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Sunny,

någon chans att du känner till koden för filnamnet som ska tas från den tredje raden i filen? eller en specifik plats?

tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, prova denna vba
Sub SaveAsSeparatePDFs()

'UpdatebyExtendoffice20221221
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xStrName As String
    Dim xPath As String
'    On Error Resume Next

    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
                Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=I
                Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Name:=3 - 1
                Selection.Extend
                Selection.EndKey Unit:=wdLine
                Selection.EscapeKey
   
                xStrName = Selection.Range
                xStrName = Replace(xStrName, " ", "")
                xStrName = Replace(xStrName, vbLf, "")
                xStrName = Replace(xStrName, Chr(10), "")
                xStrName = Replace(xStrName, Chr(13), "")
                xStrName = Replace(xStrName, "\", "")
                xStrName = Replace(xStrName, "/", "")
                xStrName = Replace(xStrName, ":", "")
                xStrName = Replace(xStrName, "*", "")
                xStrName = Replace(xStrName, "?", "")
                xStrName = Replace(xStrName, "<", "")
                xStrName = Replace(xStrName, ">", "")
                xStrName = Replace(xStrName, "|", "")
                xStrName = Replace(xStrName, """", "")
                If xStrName = "" Then
                    xStrName = I
                End If
                xPath = xFolder & "\" & xStrName & ".pdf"
                ActiveDocument.ExportAsFixedFormat OutputFileName:=xPath, 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
End Sub

Om det är tomt på den tredje raden kommer pdf-filen att namnges med nummer.
Denna kommentar minimerades av moderatoren på webbplatsen
Kedves Napos!

Ez a kód már majdnem tökéletes, a fájl elnevezéséből még ki kellene valahogyan szedni a Az eszközökért felelős személy neve részt, és akkor csak a dolgozó neve maradna.
Köszönöm szépen!

minimorisz
Denna kommentar minimerades av moderatoren på webbplatsen
Kedves Napos!

Mostmár majdnem tökéletes a kód ahhoz, amit szeretnék. A 9. sorból szeretném a fájl nevét venni, de csak a 20. karaktertől.

Vad är det för lenne?

Nagyon szépen köszönöm.

minimorisz
Det finns inga kommentarer här ännu

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL