4 meetodit tabelite eraldamiseks ühest sõnadokumendist teise

Selles artiklis on meil hea meel näidata teile 4 meetodit mitme tabeli ekstraheerimiseks ühest Wordi dokumendist teise.

Tabel on enimkasutatav viis tabelina esitatud teabe hoidmiseks. See korraldab andmeid ridadesse ja veergudesse, pakkudes lugejatele selget ülevaadet kogu teabest. Pikk dokument võib sisaldada palju tabeleid, seega on vaja need erinevatel eesmärkidel uude dokumenti eksportida.

Siin on meie 4 lähenemisviisi.

1. meetod: eksportige kõik tabelid ühest dokumendist teise

1. Esiteks ja kõige tähtsam on Wordi VBA redaktori käivitamiseks vajutada klahvikombinatsiooni „Alt + F11”.
2. Seejärel klõpsake "Tavaline" projekt ja seejärel vahekaart "Lisa".
3. Valige rippmenüüst "Moodul".
4. Ja topeltklõpsake mooduli avamiseks ja paremas servas oleva redigeerimisruumi esiletoomiseks.
5. Nüüd kopeerige ja kleepige sinna järgmine makro:

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. Lõpuks klõpsake nuppu „Käivita“.

See makro ekstraktib nii tabelid kui ka nende pealdised.

2. meetod: eraldage dokumendist konkreetne tabel

Nüüd juhuks, kui teie dokumendis on palju tabeleid, kuid peate kellelegi saatma ühe kindla tabeli. Siis on järgmisest makrost palju abi.

1. Esmalt installige ja käivitage makro, järgides 1. meetodi samme.
2. Teiseks asenda see makro järgmisega:

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. Nüüd avaneb sisestuskast.
4. Sisestage tabeli number ja klõpsake "OK".

3. meetod: pakkige välja kõik tabelid mitmest dokumendist

1. Alustuseks korraldage kõik failid ühte kausta.
2. Seejärel installige ja käivitage makro täpsete ülaltoodud juhistega.
3. Asenda makro selle makroga:

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. Nüüd sisestage viipakasti kausta aadress, kuhu oma dokumendid salvestate, ja klõpsake "OK".

4. meetod: kopeerige tabelid käsitsi välja

Kui te aga ei tunne end VBA-ga mugavalt, võite seda tööd käsitsi teha seni, kuni tabeleid on piiratud arv.

1. Esiteks klõpsake sihttabeli valimiseks vasakus ülanurgas plussmärgil.
2. Seejärel vajutage selle kopeerimiseks klahvikombinatsiooni Ctrl+C.
3. Järgmisena avage uus dokument.
4. Ja tabeli uude dokumenti kleepimiseks vajutage klahvikombinatsiooni Ctrl+V.
5. Ärge unustage salvestada uus dokument.

Käsitlege dokumendiprobleeme

Niikaua kui me Wordi kasutame, jääb seda alati kasutama Sõnakahjustus. Siiski ärge kartke enam. See pole enam lahendamatu probleem. Kvalifitseeritud taastamistööriistaga on teil suur võimalus kõik oma väärtuslikud andmed hankida.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud xlsx ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom