4 metoder för att extrahera tabeller från ett Word-dokument till ett annat

I den här artikeln visar vi dig gärna fyra metoder för att extrahera flera tabeller från ett Word-dokument till ett annat.

Tabeller är det vanligaste sättet vi använder för att lagra information i tabellform. De arrangerar data i rader och kolumner, vilket ger läsarna en tydlig bild av all information. Ett långt dokument kan innehålla många tabeller, så det finns ett behov av att exportera dem till ett nytt dokument för olika ändamål.

Här är våra 4 tillvägagångssätt.

Metod 1: Batchexportera alla tabeller från ett dokument till ett annat

1. Först och främst, tryck på "Alt + F11" för att aktivera VBA-redigeraren i Word.
2. Klicka sedan på "Normalt" projekt och fliken "Infoga" nästa.
3. Välj ”Modul” på rullgardinsmenyn.
4. Och dubbelklicka för att öppna modulen och ta fram redigeringsutrymmet på höger sida.
5. Kopiera och klistra in följande makro där:

Sub ExtractTablesFromOneDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    '  Paste tables to new document in rich text format.
    Set objRange = objNewDoc.Range
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
End Sub

6. Klicka slutligen på "Kör".

Detta makro kommer också att extrahera både tabeller och deras bildtexter.

Metod 2: Extrahera en specifik tabell från ett dokument

Nu, om det finns många tabeller i ditt dokument, men du behöver skicka en viss tabell till någon. Då kommer följande makro att hjälpa dig mycket.

1. Installera och kör först makrot genom att följa stegen i metod 1.
2. För det andra, ersätt det makrot med det här:

Sub ExtractSpecificTables()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
  Dim strTable As String
 
  strTable = InputBox("Enter the table number: ")
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  objDoc.Tables(strTable).Range.Select
  Selection.Copy
 
  Set objRange = objNewDoc.Range
  objRange.Collapse Direction:=wdCollapseEnd
  objRange.PasteSpecial DataType:=wdPasteRTF
 
End Sub

3. Nu kommer det att dyka upp en inmatningsruta.
4. Ange ett bordsnummer och klicka på "OK".

Metod 3: Batchextrahera alla tabeller från flera dokument

1. Till att börja med, ordna alla filer i en mapp.
2. Installera och kör sedan ett makro med exakta instruktioner ovan.
3. Ersätt makro med det här:

Sub ExtractTablesFromMultiDocs()
  Dim objTable As Table
  Dim objDoc As Document, objNewDoc As Document
  Dim objRange As Range
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = InputBox("Enter folder address here: ")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  Set objNewDoc = Documents.Add
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Range.Select
      Selection.Copy
 
      Set objRange = objNewDoc.Range
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.PasteSpecial DataType:=wdPasteRTF
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.Text = vbCr
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
 
End Sub

4. Ange nu mappadressen där du lagrar dina dokument i uppmaningsrutan och klicka på "OK".

Metod 4: Kopiera ut tabeller manuellt

Men om du inte känner dig bekväm med VBA går det bra att göra jobbet manuellt så länge det finns ett begränsat antal bord.

1. Klicka först på plustecknet i det övre vänstra hörnet för att välja måltabellen.
2. Tryck sedan på "Ctrl + C" för att kopiera den.
3. Öppna sedan ett nytt dokument.
4. Och tryck på "Ctrl + V" för att klistra in tabellen i ett nytt dokument.
5. Kom ihåg att spara det nya dokumentet.

Hantera dokumentproblem

Så länge vi fortsätter att använda Word kommer det alltid att finnas Ordskador. Var dock inte rädd längre. Det är inte ett problem som går att fixa längre. Med ett kvalificerat återställningsverktyg har du en stor chans att hämta all din värdefulla data.

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