Bảng là một cách tuyệt vời để trình bày nhiều loại thông tin. Trên thực tế, tôi đã thấy một số tài liệu bao gồm gần như hoàn toàn là các bảng. Nếu bạn làm nhiều việc với các bảng, bạn có thể (tại một số điểm) muốn sao chép tất cả các bảng từ một tài liệu sang một tài liệu hoàn toàn mới. Điều này có thể hữu ích nếu bạn có thông tin dạng bảng cần có sẵn trong tài liệu mới, nhưng bạn không cần thông tin còn lại từ tài liệu gốc.

Cách dễ nhất để thực hiện kiểu sao chép này là sử dụng macro.

May mắn thay, tất cả các bảng trong tài liệu đều có sẵn cho VBA thông qua bộ sưu tập Bảng. Điều đó có nghĩa là bạn có thể bước qua từng mục trong bộ sưu tập (mỗi mục sẽ là một bảng riêng lẻ) và sau đó sao chép nó.

Sub CopyTables()

Dim Source As Document     Dim Target As Document     Dim tbl As Table     Dim tr As Range

Set Source = ActiveDocument     Set Target = Documents.Add

For Each tbl In Source.Tables         Set tr = Target.Range         tr.Collapse wdCollapseEnd         tr.FormattedText = tbl.Range.FormattedText         tr.Collapse wdCollapseEnd         tr.Text = vbCrLf     Next End Sub

Macro, sau khi chạy, sẽ tạo một tài liệu hoàn toàn mới (Mục tiêu) và sao chép các bảng từ tài liệu gốc (Nguồn) sang tài liệu mới. (Tài liệu nguồn là bất kỳ tài liệu nào được kích hoạt khi bạn chạy macro.)

Macro đặt một dòng trống giữa mỗi bảng trong tài liệu Mục tiêu.

Nếu bạn không muốn dòng trống, hãy xóa hoặc bình luận dòng ngay trước câu lệnh Tiếp theo.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (13338) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365.