4 phương pháp trích xuất bảng từ tài liệu Word này sang tài liệu Word khác

Lời giải Tháng Chín 28, 2025

Trong bài viết này, chúng tôi rất vui được giới thiệu cho bạn 4 phương pháp để trích xuất nhiều bảng từ tài liệu Word này sang tài liệu Word khác.

Bảng là phương tiện được sử dụng phổ biến nhất để lưu trữ thông tin dạng bảng. Nó sắp xếp dữ liệu theo hàng và cột, giúp người đọc dễ dàng nắm bắt toàn bộ thông tin. Một tài liệu dài có thể chứa nhiều bảng, vì vậy cần phải xuất chúng sang một tài liệu mới cho nhiều mục đích khác nhau.

Dưới đây là 4 cách tiếp cận của chúng tôi.

Phương pháp 1: Xuất hàng loạt tất cả các bảng từ tài liệu này sang tài liệu khác

Trước tiên, hãy nhấn tổ hợp phím “Alt + F11” để mở trình soạn thảo VBA trong Word.
Sau đó nhấp vào dự án “Bình thường” và tab “Chèn” tiếp theo.
Chọn “Mô-đun” trên menu thả xuống.
Và nhấp đúp để mở mô-đun và hiển thị không gian chỉnh sửa ở bên phải.
Bây giờ sao chép và dán macro sau vào đó:

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

Cuối cùng, nhấp vào “Chạy”.

Macro này cũng sẽ trích xuất cả bảng và chú thích của chúng.

Phương pháp 2: Trích xuất một bảng cụ thể từ tài liệu

Bây giờ, trong trường hợp có nhiều bảng trong tài liệu của bạn, nhưng bạn cần gửi một bảng cụ thể cho ai đó. Sau đó, macro sau đây sẽ giúp bạn rất nhiều.

Đầu tiên, cài đặt và chạy macro theo các bước trong phương pháp 1.
Thứ hai, thay thế macro đó bằng cái này:

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

Bây giờ sẽ có một hộp đầu vào bật lên.
Nhập số bàn và nhấp vào “OK”.

Phương pháp 3: Trích xuất hàng loạt tất cả các bảng từ nhiều tài liệu

Trước tiên, hãy sắp xếp tất cả các tệp vào cùng một thư mục.
Sau đó cài đặt và chạy macro với các hướng dẫn chính xác ở trên.
Thay thế macro bằng cái này:

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

Bây giờ trong hộp nhắc, hãy nhập địa chỉ thư mục nơi bạn lưu trữ tài liệu của mình và nhấp vào “OK”.

Phương pháp 4: Sao chép bảng ra theo cách thủ công

Tuy nhiên, nếu bạn không cảm thấy thoải mái với VBA, bạn có thể thực hiện công việc theo cách thủ công miễn là có một số lượng bảng hạn chế.

Trước tiên, hãy nhấp vào dấu cộng ở góc trên bên trái để chọn bảng mục tiêu.
Sau đó nhấn “Ctrl + C” để sao chép nó.
Tiếp theo mở một tài liệu mới.
Và nhấn “Ctrl + V” để dán bảng vào tài liệu mới.
Nhớ lưu tài liệu mới.

Xử lý các vấn đề về tài liệu

Miễn là chúng ta tiếp tục sử dụng Word, sẽ luôn có thiệt hại từ. Tuy nhiên, đừng sợ nữa. Nó không còn là một vấn đề không thể giải quyết được nữa. Với một công cụ khôi phục đủ điều kiện, bạn có cơ hội cao để lấy lại tất cả dữ liệu có giá trị của mình.

Giới thiệu tác giả:

Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm xlsx hỏng và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm