4 metódy na extrahovanie tabuliek z jedného dokumentu do druhého

V tomto článku sme radi, že vám ponúkneme 4 spôsoby extrakcie viacerých tabuliek z jedného dokumentu Word do druhého.

Tabuľka je najpoužívanejší prostriedok na uchovávanie tabuľkových informácií. Usporiada údaje do riadkov a stĺpcov, čím čitateľom poskytuje jasný prehľad o všetkých informáciách. Dlhý dokument môže obsahovať veľa tabuliek, takže je potrebné ich exportovať do nového dokumentu z rôznych dôvodov.

Tu sú naše 4 prístupy.

Metóda 1: Dávkový export všetkých tabuliek z jedného dokumentu do druhého

1. V prvom rade stlačte klávesy „Alt + F11“, čím spustíte editor VBA vo Worde.
2. Potom kliknite na projekt „Normálny“ a potom na kartu „Vložiť“.
3. V rozbaľovacej ponuke zvoľte možnosť „Modul“.
4. Dvojitým kliknutím modul otvoríte a zobrazíte priestor na úpravy na pravej strane.
5. Teraz tam skopírujte a prilepte nasledujúce 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. Nakoniec kliknite na tlačidlo „Spustiť“.

Toto makro extrahuje tabuľky aj ich titulky.

Metóda 2: Extrakcia konkrétnej tabuľky z dokumentu

Teraz, ak je vo vašom dokumente veľa tabuliek, ale musíte niekomu poslať jednu konkrétnu tabuľku. Nasledujúce makro vám potom veľmi pomôže.

1. Najskôr nainštalujte a spustite makro podľa krokov v metóde 1.
2. Po druhé, nahraďte toto makro týmto:

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. Teraz sa objaví vyskakovacie vstupné pole.
4. Zadajte číslo tabuľky a kliknite na „OK“.

Metóda 3: Hromadná extrakcia všetkých tabuliek z viacerých dokumentov

1. Na začiatok usporiadajte všetky súbory do jedného priečinka.
2. Potom nainštalujte a spustite makro s presne uvedenými pokynmi.
3. Nahraďte makro týmto:

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. Teraz do vyhľadávacieho poľa zadajte adresu priečinka, do ktorého chcete uložiť svoje dokumenty, a kliknite na tlačidlo „OK“.

Metóda 4: Ručné kopírovanie tabuliek

Ak sa však s VBA necítite dobre, môžete prácu robiť ručne, pokiaľ existuje obmedzený počet tabuliek.

1. Najprv kliknite na znamienko plus v ľavom hornom rohu a vyberte cieľovú tabuľku.
2. Potom ho skopírujte stlačením klávesov „Ctrl + C“.
3. Ďalej otvorte nový dokument.
4. A stlačte „Ctrl + V“ a prilepte tabuľku do nového dokumentu.
5. Nezabudnite nový dokument uložiť.

Riešenie problémov s dokumentmi

Pokiaľ budeme Word používať naďalej, vždy tu bude Poškodenie slov. Už sa však nebojte. Už to nie je neodstrániteľný problém. Vďaka kvalifikovanému nástroju na obnovenie máte veľkú šancu získať všetky svoje cenné údaje.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skazený xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S