4 metode de extragere a tabelelor dintr-un document Word în altul

În acest articol, suntem bucuroși să vă arătăm 4 metode pentru a extrage mai multe tabele dintr-un document Word în altul.

Tabelul este cel mai utilizat mijloc pe care îl folosim pentru a stoca informații tabelare. Acesta aranjează datele în rânduri și coloane, oferind cititorilor o imagine clară asupra tuturor informațiilor. Un document lung poate conține multe tabele, așa că este nevoie să le exportăm într-un document nou în diverse scopuri.

Iată cele 4 abordări ale noastre.

Metoda 1: Export în lot toate tabelele de la un document la altul

1. În primul rând, apăsați „Alt+ F11” pentru a declanșa editorul VBA în Word.
2. Apoi faceți clic pe proiect „Normal” și apoi pe fila „Inserare”.
3. Alegeți „Modul” din meniul derulant.
4. Și faceți dublu clic pentru a deschide modulul și a scoate în evidență spațiul de editare din partea dreaptă.
5. Acum copiați și inserați următoarea macrocomandă acolo:

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. În cele din urmă, faceți clic pe „Rulați”.

Această macrocomandă va extrage atât tabelele, cât și legendele acestora.

Metoda 2: Extrageți un tabel specific dintr-un document

Acum, în cazul în care există multe tabele în documentul dvs., dar trebuie să trimiteți un anumit tabel cuiva. Apoi, următoarea macrocomandă vă va ajuta foarte mult.

1. Mai întâi, instalați și rulați macrocomandă urmând pașii din metoda 1.
2. În al doilea rând, înlocuiți macrocomanda cu aceasta:

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. Acum va apărea o casetă de introducere.
4. Introduceți un număr de tabel și faceți clic pe „OK”.

Metoda 3: Extrageți în lot toate tabelele din mai multe documente

1. Pentru început, aranjați toate fișierele într-un singur folder.
2. Apoi instalați și rulați o macrocomandă cu instrucțiunile exacte de mai sus.
3. Înlocuiește macrocomanda cu aceasta:

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. Acum, în caseta de solicitare, introduceți adresa folderului în care stocați documentele și faceți clic pe „OK”.

Metoda 4: Copiați tabelele manual

Cu toate acestea, dacă nu te simți confortabil cu VBA, ești bine să faci treaba manual atâta timp cât există un număr limitat de tabele.

1. Mai întâi, faceți clic pe semnul plus din colțul din stânga sus pentru a selecta tabelul țintă.
2. Apoi apăsați „Ctrl+C” pentru a-l copia.
3. Apoi deschideți un document nou.
4. Și apăsați „Ctrl + V” pentru a lipi tabelul în documentul nou.
5. Nu uitați să salvați noul document.

Gestionați problemele cu documentele

Atâta timp cât vom continua să folosim Word, va exista întotdeauna Deteriorarea cuvintelor. Cu toate acestea, nu vă mai temeți. Nu mai este o problemă de nerezolvat. Cu un instrument de recuperare calificat, aveți șanse mari să vă recuperați toate datele valoroase.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv xlsx corupt și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com