Khi bạn chèn một bảng trong Word, một đường viền được tạo tự động cho mỗi ô trong bảng. Đường viền này là một đường đơn, trọng lượng bằng một nửa điểm. Thật không may, Word không cung cấp cách nào để bạn thay đổi độ rộng dòng mặc định mà bạn sử dụng khi tạo bảng. Mặc dù đúng là bạn có thể chọn độ rộng dòng trong hộp thoại Borders and Shading, trọng số này được đặt lại thành một nửa điểm khi bạn chèn một bảng mới.

Nếu bạn muốn một số chiều rộng dòng khác, chẳng hạn như ba phần tư của một điểm, bạn có một vấn đề. Bạn phải chọn thủ công bất kỳ bảng mới nào và định dạng các đường viền để chúng có chiều rộng mong muốn. Nếu bạn làm việc với nhiều bảng, điều này có thể nhanh chóng trở nên phức tạp. Tất nhiên, bạn có thể tạo một kiểu bảng, nhưng việc áp dụng một kiểu bảng có thể cho kết quả không đồng đều nếu tất cả những gì bạn muốn làm là thay đổi độ rộng của dòng hoặc nếu bạn đang làm việc với một tài liệu có nhiều định dạng rõ ràng được áp dụng cho những cái bàn.

Có lẽ cách tốt nhất để giải quyết vấn đề này là viết một macro. Mặc dù đây có thể không phải là giải pháp lý tưởng nhất, nhưng nó chắc chắn sẽ dễ dàng hơn so với việc thay đổi thủ công mọi bảng trong tài liệu.

Macro sau, FixCellBorders, bước qua mọi ô trong mọi bảng trong tài liệu của bạn và đảm bảo độ nặng dòng tối thiểu là 3/4 điểm. Nó thực hiện điều này bằng cách kiểm tra cài đặt dòng hiện tại và sau đó thực hiện điều chỉnh chỉ khi cần thiết.

Sub FixCellBorders()

On Error Resume Next     ' Work through all tables in document     For Each objTable In ActiveDocument.Tables         ' Work through all cells in each table         For Each objCell In objTable.Range.Cells             ' Work through all borders in each cell             For Each objBorder In objCell.Borders                 ' Check if line weight is less than 0.75 pt                 If objBorder.LineWidth = wdLineWidth025pt _                   Or objBorder.LineWidth = wdLineWidth050pt Then                     ' too thin, change it                     objBorder.LineWidth = wdLineWidth075pt                 End If             Next objBorder         Next objCell     Next objTable End Sub

Như bạn có thể tưởng tượng, macro không quá nhanh vì nó xem xét tất cả bốn đường viền cho mọi ô trong mọi bảng trong tài liệu của bạn. Tuy nhiên, ưu điểm là macro sẽ chỉ sửa đổi trọng lượng của bất kỳ đường viền ô nào ở mức một phần tư hoặc một phần hai điểm. Điều này có nghĩa là bất kỳ định dạng thủ công nào bạn đã thực hiện cho các độ rộng dòng khác nhau sẽ không thay đổi.

Nếu bạn đang tìm kiếm macro nhanh hơn một chút, thì phần sau (FixTableBorders) sẽ thực hiện thủ thuật. Thay vì xem xét các ô riêng lẻ, nó hoạt động trên toàn bộ bảng. Tuy nhiên, sự khác biệt là nó đặt lại mọi đường viền của mọi bảng thành 3/4 điểm, sử dụng một dòng duy nhất. Tuy nhiên, nếu điều này phù hợp với nhu cầu của bạn, nó chắc chắn là cách dễ dàng hơn (nhanh hơn) để đi.

Sub FixTableBorders()

On Error Resume Next     For Each objTable In ActiveDocument.Tables         With objTable             With .Borders(wdBorderLeft)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderRight)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderTop)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderBottom)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderHorizontal)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderVertical)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With         End With     Next objTable End Sub

_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 (13081) á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: