4 metody extrakce tabulek z jednoho dokumentu Word do jiného

V tomto článku vám rádi ukážeme 4 způsoby, jak extrahovat více tabulek z jednoho dokumentu Word do jiného.

Tabulka je nejpoužívanějším způsobem uchovávání tabulkových informací. Uspořádává data do řádků a sloupců a poskytuje čtenářům jasný přehled o všech informacích. Dlouhý dokument může obsahovat mnoho tabulek, takže je nutné je z různých důvodů exportovat do nového dokumentu.

Zde jsou naše 4 přístupy.

Metoda 1: Dávkový export všech tabulek z jednoho dokumentu do druhého

1. Nejprve stiskněte klávesy „Alt+F11“ pro spuštění editoru VBA ve Wordu.
2. Poté klikněte na projekt „Normální“ a dále na kartu „Vložit“.
3. V rozbalovací nabídce vyberte možnost „Modul“.
4. Dvojitým kliknutím otevřete modul a otevřete prostor pro úpravy na pravé straně.
5. Nyní tam zkopírujte a vložte následující 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. Nakonec klikněte na „Spustit“.

Toto makro extrahuje obě tabulky a jejich titulky.

Metoda 2: Extrakce konkrétní tabulky z dokumentu

Nyní, v případě, že je v dokumentu mnoho tabulek, ale potřebujete někomu poslat jednu konkrétní tabulku. Následující makro vám pak hodně pomůže.

1. Nejprve nainstalujte a spusťte makro podle kroků v metodě 1.
2. Zadruhé 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. Nyní se objeví vstupní pole.
4. Zadejte číslo tabulky a klikněte na „OK“.

Metoda 3: Dávkové extrahování všech tabulek z více dokumentů

1. Pro začátek uspořádejte všechny soubory do jedné složky.
2. Poté nainstalujte a spusťte makro s přesně výše uvedenými pokyny.
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. Nyní do pole s výzvou zadejte adresu složky, kam ukládáte dokumenty, a klikněte na „OK“.

Metoda 4: Ruční kopírování tabulek

Pokud se však s VBA necítíte dobře, můžete práci dělat ručně, pokud existuje omezený počet tabulek.

1. Nejprve klikněte na znaménko plus v levém horním rohu a vyberte cílovou tabulku.
2. Poté jej zkopírujte stisknutím kombinace kláves „Ctrl + C“.
3. Dále otevřete nový dokument.
4. A stisknutím „Ctrl + V“ vložte tabulku do nového dokumentu.
5. Nezapomeňte nový dokument uložit.

Řešení problémů s dokumenty

Dokud budeme Word stále používat, vždy tu bude Poškození slov. Už se ale nebojte. Už to není neodstranitelný problém. S kvalifikovaným nástrojem pro obnovení máte vysokou šanci načíst všechna svá cenná data.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkorumpovaný xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com