4 Mga Paraan upang I-extract ang mga Talahanayan mula sa Isang Dokumento ng Salita patungo sa Isa pa

Sa artikulong ito, natutuwa kaming ipakita sa iyo ang 4 na paraan upang kunin ang maramihang mga talahanayan mula sa isang dokumento ng Word patungo sa isa pa.

Ang talahanayan ang pinakamadalas na ginagamit natin upang maglaman ng impormasyong tabular. Inaayos nito ang datos sa mga hilera at kolum, na nagbibigay sa mga mambabasa ng malinaw na pagtingin sa lahat ng impormasyon. Ang isang mahabang dokumento ay maaaring maglaman ng maraming talahanayan, kaya kailangang i-export ang mga ito sa isang bagong dokumento para sa iba't ibang layunin.

Narito ang aming 4 na diskarte.

Paraan 1: Batch Export Lahat ng Talahanayan mula sa Isang Dokumento patungo sa Isa pa

1. Una sa lahat, pindutin ang "Alt + F11" upang ma-trigger ang VBA editor sa Word.
2. Pagkatapos ay i-click ang "Normal" na proyekto at ang tab na "Ipasok" sa tabi.
3. Piliin ang "Modyul" sa drop-down na menu.
4. At i-double click para buksan ang module at ilabas ang editing space sa kanang bahagi.
5. Ngayon kopyahin at i-paste ang sumusunod na macro doon:

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. Panghuli, i-click ang "Run".

Kukunin ng macro na ito ang parehong mga talahanayan at pati na rin ang kanilang mga caption.

Paraan 2: I-extract ang isang Partikular na Talahanayan mula sa isang Dokumento

Ngayon, kung sakaling mayroong maraming mga talahanayan sa iyong dokumento, ngunit kailangan mong magpadala ng isang partikular na talahanayan sa isang tao. Kung gayon ang sumusunod na macro ay makakatulong sa iyo nang malaki.

1. Una, i-install at patakbuhin ang macro na sumusunod sa mga hakbang sa pamamaraan 1.
2. Pangalawa, palitan ang macro na ito ng isang ito:

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. Ngayon ay magkakaroon ng isang input box na lalabas.
4. Maglagay ng numero ng talahanayan at i-click ang "OK".

Paraan 3: Batch Extract Lahat ng Talahanayan mula sa Maramihang Mga Dokumento

1. Para magsimula, ayusin ang lahat ng mga file sa isang folder.
2. Pagkatapos ay i-install at patakbuhin ang isang macro na may eksaktong mga tagubilin sa itaas.
3. Palitan ang macro ng isang ito:

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. Ngayon sa kahon ng pag-prompt, ipasok ang address ng folder kung saan mo iniimbak ang iyong mga dokumento at i-click ang "OK".

Paraan 4: Manu-manong Kopyahin ang Mga Talahanayan

Gayunpaman, kung hindi ka kumportable sa VBA, ayos lang na gawin mo ang trabaho nang manu-mano hangga't may limitadong bilang ng mga talahanayan.

1. Una, i-click ang plus sign sa kaliwang sulok sa itaas upang piliin ang target na talahanayan.
2. Pagkatapos ay pindutin ang "Ctrl + C" upang kopyahin ito.
3. Susunod na magbukas ng bagong dokumento.
4. At pindutin ang "Ctrl+ V" upang i-paste ang talahanayan sa bagong dokumento.
5. Tandaan na i-save ang bagong dokumento.

Pangasiwaan ang mga Problema sa Dokumento

Hangga't patuloy tayong gumagamit ng Word, palaging magkakaroon Pagkasira ng salita. Gayunpaman, huwag nang matakot. Hindi na ito isang hindi naaayos na problema. Sa isang kwalipikadong tool sa pagbawi, mayroon kang mataas na pagkakataon na makuha ang lahat ng iyong mahalagang data.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sira xlsx at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa