4 metode za ekstrahiranje tabel iz enega Wordovega dokumenta v drugega

V tem članku vam z veseljem predstavimo 4 metode za ekstrahiranje več tabel iz enega Wordovega dokumenta v drugega.

Tabela je najpogosteje uporabljeno sredstvo za shranjevanje tabelaričnih informacij. Podatke razporeja v vrstice in stolpce, kar bralcem omogoča jasen pregled vseh informacij. Dolg dokument lahko vsebuje veliko tabel, zato jih je treba za različne namene izvoziti v nov dokument.

Tukaj so naši 4 pristopi.

1. način: paketni izvoz vseh tabel iz enega dokumenta v drugega

1. Najprej in predvsem pritisnite »Alt + F11«, da zaženete urejevalnik VBA v Wordu.
2. Nato kliknite »Normalni« projekt in nato zavihek »Vstavi«.
3. V spustnem meniju izberite “Module”.
4. Dvokliknite, da odprete modul in prikažete prostor za urejanje na desni strani.
5. Zdaj kopirajte in prilepite naslednji makro tja:

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. Na koncu kliknite »Zaženi«.

Ta makro bo izvlekel obe tabeli in njihove napise.

2. način: Izvlecite določeno tabelo iz dokumenta

Zdaj, v primeru, da je v vašem dokumentu veliko tabel, vendar morate nekomu poslati eno določeno tabelo. Potem vam bo naslednji makro v veliko pomoč.

1. Najprej namestite in zaženite makro po korakih v 1. metodi.
2. Drugič, zamenjajte ta makro s tem:

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. Zdaj se bo pojavilo polje za vnos.
4. Vnesite številko tabele in kliknite »V redu«.

3. način: paketno ekstrahiranje vseh tabel iz več dokumentov

1. Za začetek vse datoteke razporedite v eno mapo.
2. Nato namestite in zaženite makro z natančnimi zgornjimi navodili.
3. Zamenjajte makro s tem:

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. Zdaj v pozivno polje vnesite naslov mape, v kateri shranjujete dokumente, in kliknite »V redu«.

4. način: Ročno kopirajte tabele

Vendar, če se ne počutite udobno z VBA, lahko delo opravite ročno, če je število tabel omejeno.

1. Najprej kliknite znak plus v zgornjem levem kotu, da izberete ciljno tabelo.
2. Nato pritisnite »Ctrl + C«, da ga kopirate.
3. Nato odprite nov dokument.
4. In pritisnite “Ctrl+ V”, da prilepite tabelo v nov dokument.
5. Ne pozabite shraniti novega dokumenta.

Rešite težave z dokumenti

Dokler bomo uporabljali Word, bo vedno obstajal Poškodbe besed. Vendar se ne bojte več. To ni več nerešljiva težava. S kvalificiranim orodjem za obnovitev imate veliko možnosti, da pridobite vse svoje dragocene podatke.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjen xlsx in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com