2 snabba sätt att extrahera enskilda sidor från ditt Word-dokument

I dagens inlägg vill vi dela med oss ​​av två snabba sätt att extrahera enskilda sidor från ditt Word-dokument.

Ibland i ett Word-dokument kan varje sida innehålla ganska oberoende innehåll, till exempel en tabell. Och du kommer antagligen behöva skicka olika tabeller till olika personer. Då måste du spara varje tabell på varje sida som en separat fil.

Den första idén som vi tänker bör vara den klassiska kopiera och klistra in. Ändå kan allt involvera urval vara irriterande ibland, för att dra och välja kan enkelt göra en slut utan val alls. Av denna anledning rekommenderar vi dig två snabba metoder med hjälp av makro för att göra jobbet.

Metod 1: Extrahera aktuell sida och spara den som ett nytt dokument

1. Först och främst, placera markören på den sida du vill extrahera.
2. Klicka på fliken "Utvecklare" och klicka sedan på "Visual Basic" för att anropa VBA-redigeraren. Om “Utvecklaren” inte är aktiverad, tryck bara på “Alt + F11” istället.
3. För det andra, gå till “Normal” -projektet genom att klicka på det.
4. Klicka sedan på fliken "Infoga" och välj "Modul".
5. Dubbelklicka på den nya modulen för att öppna redigeringsområdet.
6. Klistra sedan in följande koder där:

Sub SaveCurrentPageAsANewDoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim strFileName As String
  Dim strFolder As String
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
  strFileName = InputBox("Enter file name here: ")
 
  '  Copy current page.
  objDoc.Bookmarks("\Page").Range.Select
  Selection.Copy
 
  '  Open a new document to paste the selection.
  Set objNewDoc = Documents.Add
  Selection.Paste
 
  objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx"
  objNewDoc.Close
End Sub

7. Slutligen klickar du på "Kör" -knappen.

Nu kommer det att finnas två inmatningsrutor. Ange sökvägen där du vill lagra det nya dokumentet i den första inmatningsrutan. Och ange det nya dokumentnamnet på det andra.

Metod 2: Extrahera varje sida och spara den som ett nytt dokument

I följande makro kan du extrahera varje enskild sida i ett dokument.

1. Tryck först på "Ctrl + Home" för att gå till början av ditt dokument.
2. Följ sedan samma steg i metod 1 för att installera och köra ett makro.
3. Den här gången ersätter du makrot med det här:

Sub SaveEachPageAsADoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim nPageNumber As Integer
  Dim strFolder As String
  Dim objFileName As Range
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
 
  '  Copy each page in the document to paste it into a new one.
  For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Copy
 
    Set objNewDoc = Documents.Add
    Selection.Paste
 
    '  Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
    Set objFileName = objNewDoc.Range(Start:=0, End:=20)
    objNewDoc.SaveAs FileName:=strFolder & "\" & "Page " & nPageNumber & " " & objFileName & ".docx"
    objNewDoc.Close
    Application.Browser.Next
  Next nPageNumber
End Sub

Hantera Word-frågor

Det finns och kommer alltid att finnas olika Word-problem. Poängen är att lära sig att åtgärda dem ordentligt. Det mest rekommenderade sättet är naturligtvis att skaffa en sofistikerad Ordåterställning verktyg. Du bör ta varje minut för att återställa dina data innan det är för sent.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive korrupt xlsx och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com