4 метода за извличане на таблици от един документ на Word в друг

В тази статия се радваме да ви покажем 4 метода за извличане на множество таблици от един документ на Word в друг.

Таблицата е най-използваното средство за съхраняване на таблична информация. Тя подрежда данните в редове и колони, предоставяйки на читателите ясен поглед върху цялата информация. Дълъг документ може да съдържа много таблици, така че е необходимо да се експортират в нов документ за различни цели.

Ето нашите 4 подхода.

Метод 1: Пакетно експортиране на всички таблици от един документ в друг

1. Първо и най-важно, натиснете „Alt+F11“, за да задействате VBA редактора в Word.
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. Накрая щракнете върху „Run“.

Този макрос ще извлече както таблиците, така и техните надписи.

Метод 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. Въведете номер на таблица и щракнете върху „OK“.

Метод 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. Сега в полето за подкана въведете адреса на папката, в която съхранявате вашите документи, и щракнете върху „OK“.

Метод 4: Ръчно копиране на таблици

Въпреки това, ако не се чувствате комфортно с VBA, можете да свършите работата ръчно, стига да има ограничен брой таблици.

1. Първо, щракнете върху знака плюс в горния ляв ъгъл, за да изберете целевата таблица.
2. След това натиснете „Ctrl+ C“, за да го копирате.
3. След това отворете нов документ.
4. И натиснете “Ctrl+ V”, за да поставите таблицата в нов документ.
5. Не забравяйте да запазите новия документ.

Справете се с проблеми с документи

Докато продължаваме да използваме Word, винаги ще има Увреждане на думите. Въпреки това, не се страхувайте повече. Това вече не е непоправим проблем. С квалифициран инструмент за възстановяване имате голям шанс да извлечете всичките си ценни данни.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително корумпиран xlsx и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com