4 Metode untuk Mengekstrak Tabel dari Satu Dokumen Word ke Dokumen Lainnya

Pada artikel ini, kami dengan senang hati menunjukkan kepada Anda 4 metode untuk mengekstrak beberapa tabel dari satu dokumen Word ke dokumen Word lainnya.

Tabel adalah most digunakan berarti yang kami gunakan untuk menyimpan informasi tabel. Ini mengatur data dalam baris dan kolom, menyajikan pembaca pandangan yang jelas dari semua informasi. Dokumen yang panjang bisa berisi banyak tabel, jadi ada kebutuhan untuk mengekspornya ke dokumen baru untuk berbagai keperluan.

Berikut adalah 4 pendekatan kami.

Metode 1: Ekspor Batch Semua Tabel dari Satu Dokumen ke Dokumen Lainnya

1. Pertama dan depanost, tekan "Alt + F11" untuk memicu editor VBA di Word.
2. Kemudian klik proyek "Normal" dan tab "Sisipkan" di sebelahnya.
3. Pilih "Modul" pada menu drop-down.
4. Dan klik dua kali untuk membuka modul dan memunculkan ruang pengeditan di sisi kanan.
5. Sekarang salin dan tempel makro berikut di sana:

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. Terakhir, klik "Jalankan".

Makro ini akan mengekstrak tabel dan keterangannya juga.

Metode 2: Ekstrak Tabel Tertentu dari Dokumen

Sekarang, jika ada banyak tabel di dokumen Anda, tetapi Anda perlu mengirim satu tabel tertentu kepada seseorang. Maka makro berikut akan banyak membantu Anda.

1. Pertama, instal dan jalankan langkah-langkah berikut makro di metode 1.
2. Kedua, ganti makro itu dengan yang ini:

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. Sekarang akan ada kotak input yang muncul.
4. Masukkan nomor tabel dan klik "OK".

Metode 3: Ekstrak Batch Semua Tabel dari Beberapa Dokumen

1. Untuk start dengan, atur semua file dalam satu folder.
2. Kemudian instal dan jalankan makro dengan instruksi di atas.
3. Ganti makro dengan yang ini:

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. Sekarang di kotak prompt, masukkan alamat folder tempat Anda menyimpan dokumen Anda dan klik "OK".

Metode 4: Salin Tabel Secara Manual

Namun, jika Anda merasa tidak nyaman dengan VBA, Anda boleh melakukan pekerjaan secara manual selama jumlah tabelnya terbatas.

1. Pertama, klik tanda plus di pojok kiri atas untuk memilih tardapatkan meja.
2. Kemudian tekan "Ctrl + C" untuk menyalinnya.
3. Selanjutnya buka dokumen baru.
4. Dan tekan "Ctrl + V" untuk menempelkan tabel di dokumen baru.
5. Ingatlah untuk menyimpan dokumen baru.

Tangani dengan Masalah Dokumen

Selama kita tetap menggunakan Word, akan selalu ada Kerusakan kata. Namun, jangan takut lagi. Ini bukan masalah yang tidak bisa diperbaiki lagi. Dengan alat pemulihan yang memenuhi syarat, Anda memiliki peluang besar untuk mengambil semua data berharga Anda.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xlsx rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com