4 Kaedah Mengekstrak Jadual dari Dokumen Satu Kata ke Dokumen Yang Lain

Dalam artikel ini, kami dengan senang hati menunjukkan kepada anda dengan 4 kaedah untuk mengekstrak pelbagai jadual dari satu dokumen Word ke dokumen yang lain.

Jadual adalah most digunakan bermaksud kita gunakan untuk menyimpan maklumat jadual. Ini menyusun data dalam baris dan lajur, memberikan pembaca pandangan yang jelas tentang semua maklumat. Dokumen panjang boleh memuat banyak jadual, jadi ada keperluan untuk mengeksportnya ke dokumen baru untuk pelbagai tujuan.

Inilah 4 pendekatan kami.

Kaedah 1: Kumpulan Eksport Semua Jadual dari Satu Dokumen ke Dokumen Lain

1. Pertama dan utamaost, tekan "Alt + F11" untuk mencetuskan editor VBA di Word.
2. Kemudian klik projek "Normal" dan tab "Masukkan" di sebelah.
3. Pilih "Modul" pada menu lungsur.
4. Dan klik dua kali untuk membuka modul dan mengeluarkan ruang penyuntingan di sebelah kanan.
5. Sekarang salin dan tampal 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. Akhirnya, klik "Jalankan".

Makro ini akan mengekstrak kedua-dua jadual dan kapsyennya juga.

Kaedah 2: Ekstrak Jadual Khusus dari Dokumen

Sekarang, sekiranya terdapat banyak jadual dalam dokumen anda, tetapi anda perlu menghantar satu jadual tertentu kepada seseorang. Maka makro berikut akan banyak membantu anda.

1. Pertama, pasang dan jalankan makro berikut langkah-langkah dalam kaedah 1.
2. Kedua, gantikan makro itu dengan yang berikut:

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 nombor jadual dan klik "OK".

Kaedah 3: Ekstrak Batch Semua Jadual dari Beberapa Dokumen

1. Kepada stardengan, susun semua fail dalam satu folder.
2. Kemudian pasang dan jalankan makro dengan arahan di atas.
3. Gantikan 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 arahan, masukkan alamat folder tempat anda menyimpan dokumen anda dan klik "OK".

Kaedah 4: Salin Jadual secara manual

Walau bagaimanapun, jika anda tidak merasa selesa dengan VBA, anda boleh melakukan pekerjaan secara manual selagi terdapat jumlah jadual yang terhad.

1. Pertama, klik tanda tambah di sudut kiri atas untuk memilih tardapatkan meja.
2. Kemudian tekan "Ctrl + C" untuk menyalinnya.
3. Seterusnya buka dokumen baru.
4. Dan tekan "Ctrl + V" untuk menampal jadual dalam dokumen baru.
5. Ingatlah untuk menyimpan dokumen baru.

Tangani Masalah Dokumen

Selagi kita terus menggunakan Word, akan selalu ada Kerosakan perkataan. Namun, jangan takut lagi. Ia bukan masalah yang tidak dapat diselesaikan lagi. Dengan alat pemulihan yang berkelayakan, anda berpeluang tinggi untuk mendapatkan kembali semua data berharga anda.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xlsx rosak dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com