Bảng là một lợi ích tuyệt vời cho người dùng Word. Tuy nhiên, khi bạn đang làm việc với các tài liệu được tạo trong một trình xử lý Word khác, các bảng có thể gây phiền toái. Ví dụ: một người đọc WordTips phàn nàn rằng văn bản hai cột của anh ta được tạo trong WordPerfect đã được chuyển đổi trong Word thành bảng. Anh ấy đã yêu cầu một cách để tự động chuyển đổi tất cả các bảng thành văn bản mà không cần phải xử lý từng bảng theo cách thủ công.

Macro sau, AllTablesToText, sẽ thực hiện thủ thuật. Nó bước qua từng bảng trong tài liệu hiện tại và chuyển tất cả chúng thành văn bản, với các tab giữa các cột:

Sub AllTablesToText()

Dim Tbls As Long     Dim J As Long

Tbls = ActiveDocument.Tables.Count     For J = Tbls To 1 Step —1         ActiveDocument.Tables(J).ConvertToText Separator:=wdSeparateByTabs     Next J End Sub

Nếu bạn không muốn có các tab giữa các cột, tất cả những gì bạn cần làm là thay đổi giá trị được gán cho tham số Dấu phân cách. Bạn có thể sử dụng wdSeparateByCommas, wdSeparateByDefaultListSeparator hoặc wdSeparateByParagraphs.

_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 (866) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: