Bạn đã làm việc lâu dài và chăm chỉ cho thiết kế trang của mình, bao gồm một vài bảng vừa phải. Sau đó, cần thêm một chút văn bản vào một trong các bảng. Kết quả là văn bản trong một ô bao bọc và đẩy mọi thứ khác xuống một chút. Bây giờ toàn bộ thiết kế của bạn bị loại bỏ! Bạn khao khát một cách tự động điều chỉnh kích thước của văn bản trong một ô để không xảy ra hiện tượng cuộn và đẩy.

Nếu bạn đang sử dụng Word 2000, Word 2002 hoặc Word 2003, có một tùy chọn tích hợp có thể thực hiện thủ thuật này. Đơn giản chỉ cần làm theo các bước sau:

  1. Chọn ô hoặc các ô bạn muốn định dạng.

  2. Chọn Thuộc tính Bảng từ menu Bảng. Hộp thoại Thuộc tính bảng được hiển thị.

  3. Nếu cần, hãy chọn tab Ô. (Xem Hình 1.)

  4. Bấm vào nút Tùy chọn. Word hiển thị hộp thoại Tùy chọn Ô. (Xem Hình 2.)

  5. Đảm bảo rằng hộp kiểm Fit Text được chọn.

  6. Bấm vào OK để đóng hộp thoại Tùy chọn ô.

  7. Nhấp vào OK để đóng hộp thoại Thuộc tính bảng.

Những gì Word làm là giảm kích thước rõ ràng của văn bản để mọi thứ phù hợp. Word giảm chiều rộng của văn bản bằng cách “cuộn lại” (một thuật ngữ kỹ thuật cao) văn bản lại với nhau theo chiều ngang, mà không cần điều chỉnh theo chiều dọc.

Nếu bạn đang sử dụng Word 97, không có cách cố hữu nào để hoàn thành tác vụ. Word không cung cấp bất kỳ thuộc tính nào mà bạn có thể kiểm tra để xác định chiều rộng của các ký tự khác nhau, mỗi thuộc tính có thể có kích thước khác nhau và có các thuộc tính khác. Tuy nhiên, bạn có thể tạo một macro có thể giúp bạn bằng cách hiển thị chiều rộng của chuỗi văn bản bằng điểm hoặc inch. Ví dụ: macro VBA sau đây hiển thị một hộp nhập để bạn có thể nhập chuỗi của mình, hiển thị hộp thoại Phông chữ để bạn có thể chỉ định kích thước phông chữ và điểm, sau đó hiển thị chiều rộng của chuỗi kết quả.

Sub GetStringLength()

Dim sngInitPos As Single     Dim sngEndPos As Single     Dim strText As String     Dim sngLength As Single

strText = InputBox("Enter the string whose length you want to determine")

Documents.Add     Dialogs(wdDialogFormatFont).Show

sngInitPos = Selection.Information(wdHorizontalPositionRelativeToPage)

Selection.InsertAfter strText     Selection.EndOf     sngEndPos = Selection.Information(wdHorizontalPositionRelativeToPage)

sngLength = sngEndPos — sngInitPos

MsgBox "Your string has a length of " & sngLength & _         " points, or " & PointsToInches(sngLength) & " inches."

ActiveDocument.Close savechanges:=False End Sub

Tất nhiên, khó khăn duy nhất với macro này là nó không phải là “tự động”. Ví dụ: nó sẽ không điều chỉnh kích thước của một chuỗi văn bản thành kích thước tối đa có thể để vừa với một ô. Về lâu dài, có thể dễ dàng hơn nếu chỉ thử nghiệm với các kích thước phông chữ khác nhau cho thông tin trong ô cho đến khi bạn tìm thấy kích thước phù hợp với nhu cầu của mình.

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