Nếu bạn có một tài liệu chứa khá nhiều bảng, bạn có thể đang tìm cách sửa đổi chiều rộng của tất cả các bảng trong tài liệu. Ví dụ: tiêu chuẩn công ty của bạn có thể yêu cầu tất cả các bảng có cùng chiều rộng, kéo dài từ lề trái sang lề phải.

Nếu bạn có bốn mươi bảng trở lên trong một tài liệu, việc sửa đổi chiều rộng của tất cả chúng, riêng lẻ, có thể rất tẻ nhạt.

Macro sau đây, ResizeAllTables, sẽ nhanh chóng thực hiện những gì nó nói — thay đổi kích thước tất cả các bảng. Chiều rộng của các bảng được điều chỉnh để lấp đầy các lề có sẵn.

Sub ResizeAllTables()

Dim oTbl As Table     For Each oTbl In ActiveDocument.Tables         oTbl.AutoFitBehavior wdAutoFitFixed         With ActiveDocument.PageSetup             oTbl.PreferredWidth = .PageWidth - .LeftMargin - .RightMargin         End With     Next oTbl End Sub

Sau khi macro hoàn tất, bạn vẫn nên kiểm tra từng bảng để đảm bảo rằng chiều rộng cột của bạn phù hợp với dữ liệu của bạn, nhưng chiều rộng tổng thể của các bảng sẽ như bạn mong đợi.

_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 (11487) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: