Hoppa till huvudinnehåll

Dela och extrahera sidor från dina Word-dokument (4 sätt)

Författare: Sun Senast ändrad: 2024-04-22

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

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.

Obs! Koden nedan kan endast extrahera ett kontinuerligt intervall av sidor på en gång.
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
 

Obs: Med det här skriptet kan du direkt ställa in intervallet för sidor som ska extraheras, filnamnet och sökvägen för att spara i koden. Vänligen ändra värdena för strFolder, strFileName, startPage och endPage enligt dina faktiska behov. När du kör det här makrot extraherar det automatiskt det angivna intervallet av sidor och sparar dem i ett nytt Word-dokument, allt utan någon användarinteraktion.
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.

Innan du använder funktionen Split Document, bör Kutools för Word installeras, njut av en 60-dagars gratis provperiod nu!
Steg 1: Aktivera funktionen Dela dokument

Klicka Kutools Plus > Split för att aktivera funktionen.

Steg 2: Anpassa din split
  1. Dela med: Välj det kriterium du vill dela efter.

  2. Sida: Om du väljer Custom i Dela med rullgardinsmenyn bör du skriva in sidnumren i den här textrutan.

  3. Spara till: Bläddra och välj en mapp för att hitta de delade dokumenten.

  4. Dokumentprefix: Skriv prefix för att namnge de delade dokumenten.

  5. OK: Klicka för att avsluta uppdelningen.

Steg 3: Gå till mappen och kontrollera de delade dokumenten

Släpp loss den fulla potentialen i Word med Kutools! Erfarenhet över 100 kraftfulla verktyg utformade för att effektivisera din dokumenthantering och förbättra dina redigeringsmöjligheter. Ladda ner nu för en transformativ produktivitetsökning!

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

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀
 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations