Dela och extrahera sidor från dina Word-dokument (4 sätt)
Att hantera ett långt Word-dokument kan ibland kräva att du extraherar specifika sidor för separat granskning eller distribution. Oavsett om du bara behöver en sida, ett antal sidor eller att dela upp hela dokumentet baserat på specifika kriterier, erbjuder Microsoft Word flera sätt att uppnå detta. Låt oss dyka in i fyra effektiva metoder för att dela och extrahera sidor från dina Word-dokument.
Extrahera specifika sidor / aktuell sida från Word
- Funktionen Kopiera och klistra in - manuellt
- Funktionen Skriv ut till PDF - spara extraherade sidor till PDF
- Med VBA-kod - spara extraherade sidor till en specifik mapp
Dela upp hela Word-dokument till separata filer baserat på sidor, rubriker, raster
Extrahera specifika sidor / aktuell sida från Word
Den här guiden ger en detaljerad översikt över tre effektiva tekniker för att extrahera antingen specifika sidor eller den aktuella sidan från ditt dokument.
Extrahera sidor med funktionen Kopiera och klistra in – manuellt
Det enklaste sättet att extrahera specifika sidor eller innehåll från ett Word-dokument är att använda funktionen kopiera och klistra in.
Steg 1: Välj innehållet du vill extrahera
Placera markören längst fram på innehållet du vill kopiera, scrolla sedan ned till slutet av innehållet och håll Shift nyckel, klicka i slutet av innehållet.
Steg 2: Kopiera det valda innehållet
Högerklicka på det valda innehållet och välj Kopiera, eller tryck helt enkelt Ctrl + C
Steg 3: Klistra in i ett nytt dokument
Öppna ett nytt Word-dokument och klistra in innehållet med hjälp av Ctrl + V.
Steg 4: Spara det nya dokumentet
Spara ditt nyskapade dokument genom att klicka Fil > Spara som.
Extrahera sidor med funktionen Skriv ut till PDF - spara extraherade sidor till PDF
Ett annat sätt att extrahera sidor är att skriva ut dem till en PDF. Den här metoden är praktisk när du behöver dela eller spara de extraherade sidorna i ett allmänt accepterat format.
Steg 1: Navigera till utskriftsmenyn
Med dokumentet öppet, gå till Fil > Skriva ut.
Steg 2: Välj Microsoft Print to PDF
I Skrivare dropdown, välj Microsoft Skriv ut till PDF.
Steg 3: Ange sidintervall
I inställningarna väljer du det utskriftsområde du vill ha:
-
Skriv ut alla sidor: Skriv ut alla sidor i dokumentet.
-
Utskriftsval: Skriv ut urvalet, om du inte väljer något område kan det här alternativet inte användas.
-
Skriv ut aktuell sida: Skriv ut aktuell sida.
-
Anpassad utskrift: Skriv ut anpassade sidintervall efter behov. När du väljer det här alternativet visas Sida textrutan visas där du kan skriva sidnumret för utskrift.
Steg 4: Skriv ut
Klicka Skriva ut, och välj en plats för att spara din PDF. De angivna sidorna kommer att sparas som ett nytt PDF-dokument.
Extrahera sidor med VBA-kod - spara extraherade sidor i en specifik mapp
För användare som är bekväma med VBA kan ett skript automatisera utvinningsprocessen, särskilt användbart för stora dokument.
Steg 1: Tryck på Alt + F11 för att öppna VBA Editor
Steg 2: Sätt in en ny modul
Klicka Insert fliken i den öppnade Microsoft Visual Basic för applikationer fönster och välj sedan Modulerna.
Steg 3: Sätt in koden
Kopiera koden nedan och klistra in den i modulen.
Kod: Extraherar ett antal sidor till en ny fil i en mapp
Sub SaveSpecifiedPagesAsNewDoc()
'UpdatebyKutools
Dim objNewDoc As Document
Dim objDoc As Document
Dim strFolder As String
Dim strFileName As String
Dim startPage As Long
Dim endPage As Long
Dim startRange As Range
Dim endRange As Range
' Initialize
Set objDoc = ActiveDocument
' Specify the folder path and file name here
strFolder = "C:\Users\AddinsVM001\Desktop\pdf\extract pages" ' Example path
strFileName = "ExtractedPages" ' Example file name
' Specify start and end pages here
startPage = 3
endPage = 4
' Find the range of the specified pages
With objDoc
' Go to the start of the start page
.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=startPage).Select
Set startRange = Selection.Range
' Go to the start of the page after the end page, to get the complete end page
.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=endPage + 1).Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Set endRange = Selection.Range
' Define the range from start to end page
Set startRange = .Range(Start:=startRange.Start, End:=endRange.End)
End With
' Copy the defined range
startRange.Copy
' Open a new document to paste the selection
Set objNewDoc = Documents.Add
objNewDoc.Content.Paste
' Save the new document
objNewDoc.SaveAs2 FileName:=strFolder & "\" & strFileName & ".docx"
objNewDoc.Close False
' Clean up
Set objNewDoc = Nothing
Set objDoc = Nothing
Set startRange = Nothing
Set endRange = Nothing
MsgBox "Pages " & startPage & " to " & endPage & " have been extracted to " & strFileName & ".docx"
End Sub
Steg 4: Klicka på Kör-knappen eller tryck på F5-tangenten för att köra koden
Efter att ha kört koden kommer en dialogruta fram som talar om att sidorna har extraherats, klicka OK att stänga den.
Steg 5: Gå till mappen för att kontrollera om sidorna har extraherats korrekt
Dela upp hela Word-dokument till separata filer baserat på sidor, rubriker, raster
Om du vill extrahera sidor för att separera filer efter rubriker 1, sidbrytningar, avsnittsbrytningar eller specifika sidor, Dela dokument egenskap av Kutools för Word kommer att vara en bra hjälpare.
Steg 1: Aktivera funktionen Dela dokument
Klicka Kutools Plus > Split för att aktivera funktionen.
Steg 2: Anpassa din split
-
Dela med: Välj det kriterium du vill dela efter.
-
Sida: Om du väljer Custom i Dela med rullgardinsmenyn bör du skriva in sidnumren i den här textrutan.
-
Spara till: Bläddra och välj en mapp för att hitta de delade dokumenten.
-
Dokumentprefix: Skriv prefix för att namnge de delade dokumenten.
-
OK: Klicka för att avsluta uppdelningen.
Steg 3: Gå till mappen och kontrollera de delade dokumenten
Varje metod erbjuder en lösning för olika behov: manuell kopiering för enkla extraheringar, utskrift till PDF för att dela specifika sidor, VBA för automatisk extrahering och dokumentdelning för att organisera omfattande dokument. Genom att följa dessa steg kan du hantera dina dokument mer effektivt och skräddarsy innehållet efter dina specifika krav.
För ytterligare transformativa Word-strategier som avsevärt kan förbättra din datahantering, utforska vidare här..
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...
Innehållsförteckning
- Extrahera specifika sidor / aktuell sida från Word
- Funktionen Kopiera och klistra in – manuellt
- Funktionen Skriv ut till PDF - spara extraherade sidor till PDF
- Med VBA-kod - spara extraherade sidor till en specifik mapp
- Dela upp hela Word-dokument till separata filer baserat på sidor, rubriker, raster