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. Нарешті, натисніть «Виконати».

Цей макрос також витягне як таблиці, так і їх підписи.

Спосіб 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