從一個Word文檔中提取表的4種方法

在本文中，我們很高興向您展示4種方法，這些方法可以將多個表從一個Word文檔提取到另一個。

表格是我們最常用的儲存表格資訊的方式。它將數據按行和列排列，使讀者能夠清晰地查看所有資訊。一篇長文件可能包含許多表格，因此有時需要將它們匯出到新文件中以用於各種用途。

這是我們的4種方法。

方法1：批量導出所有表從一個文檔到另一個

1. 首先，按下「Alt+F11」鍵即可在 Word 中啟動 VBA 編輯器。
2. 然後單擊“普通”項目，然後單擊“插入”選項卡。
3. 在下拉菜單上選擇“模塊”。
4. 並雙擊以打開模塊，並帶出右側的編輯空間。
5. 現在，將以下宏複製並粘貼到此處：

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. 最後，單擊“運行”。

此宏還將提取表及其標題。

方法2：從文檔中提取特定的表

現在，如果您的文檔中有很多表，但是您需要將一個特定的表發送給某人。 然後，下面的宏將為您提供很多幫助。

1. 首先，按照方法1中的步驟安裝並運行宏。
2. 其次，用該宏替換該宏：

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. 現在將彈出一個輸入框。
4. 輸入表格編號，然後單擊“確定”。

方法3：批量提取多個文檔中的所有表

1. 首先，將所有文件整理到一個資料夾中。
2. 然後按照上述確切說明安裝並運行宏。
3. 用這個替換宏：

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. 現在，在提示框中，輸入存儲文檔的文件夾地址，然後單擊“確定”。

方法4：手動複製表

但是，如果您對VBA不滿意，只要表數量有限，就可以手動完成此工作。

1. 首先，點選左上角的加號選擇目標表格。
2. 然後按“ Ctrl + C”將其複制。
3. 接下來打開一個新文檔。
4. 然後按“ Ctrl + V”將表格粘貼到新文檔中。
5. 記住要保存新文檔。

處理文檔問題

只要我們繼續使用Word，總會有 字損。 但是，不必再擔心了。 這不再是一個無法解決的問題。 使用合格的恢復工具，您將有很大的機會檢索所有有價值的數據。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的xlsx 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM