Nhiều người đã quen với WordPerfect sau đó nhận thấy nhu cầu học cách sử dụng Word. Đôi khi quá trình chuyển đổi không hoàn toàn suôn sẻ, một phần lớn là do các tác vụ không được thực hiện theo cùng một cách trong Word như trong WordPerfect.

Một trường hợp điển hình là điều chỉnh độ rộng của các cột trong bảng bằng cách sử dụng bàn phím. WordPerfect, luôn là “định hướng bàn phím”

chương trình, giúp điều chỉnh dễ dàng: chỉ cần nhấn> hoặc <để mở rộng hoặc thu hẹp cột. Mặt khác, Word luôn hướng chuột nhiều hơn và không có lệnh bàn phím tương đương cho tác vụ này.

Có những cách giải quyết; chẳng hạn, bạn có thể sử dụng bàn phím để nhập Alt + A, R, U, rồi nhấn Tab một vài lần để đến trường chiều rộng cột. Tất nhiên, vấn đề với điều này là không phải ở đâu cũng dễ dàng (hoặc trực quan).

Nếu không phiền khi sử dụng chuột, bạn có thể giữ phím Alt khi kéo đường viền cột. Thước kẻ thay đổi để hiển thị chiều rộng chính xác của các cột khi bạn di chuyển đường viền. Rất tuyệt, nhưng vẫn là một nỗi đau cho những người muốn chỉ sử dụng bàn phím. (Nó cũng không hữu ích lắm đối với những người có độ phân giải chuột không tốt hoặc những người không thể di chuyển chuột trong khoảng cách rất nhỏ.)

Có lẽ giải pháp tốt nhất là thực hiện mô phỏng khả năng WordPerfect của riêng bạn. Macro sau có thể làm được điều đó:

Sub StretchColumn()

Dim iCol As Integer     Dim sCurrent As Single

If Selection.Information(wdWithInTable) Then         If Selection.Columns.Count = 1 Then             iCol = Selection.Cells(1).ColumnIndex             sCurrent = Selection.Tables(1).Columns(iCol).Width             Selection.Tables(1).Columns(iCol).SetWidth _               ColumnWidth:=sCurrent + 1, RulerStyle:=wdAdjustNone         Else             MsgBox ("More than one column selected")

End If     Else         MsgBox ("Insertion point not within a table")

End If End Sub

Nếu bạn gán macro này cho một phím tắt (như được mô tả trong các vấn đề khác của WordTips), thì bạn có thể tăng chiều rộng của cột bảng hiện tại lên một điểm (1/72 inch) mỗi lần bạn nhấn phím tắt. Bạn cũng có thể thực hiện một thay đổi đơn giản đối với macro để tạo một phiên bản làm giảm độ rộng cột:

Sub ShrinkColumn()

Dim iCol As Integer     Dim sCurrent As Single     Dim sNext As Single

If Selection.Information(wdWithInTable) Then         If Selection.Columns.Count = 1 Then             iCol = Selection.Cells(1).ColumnIndex             sCurrent = Selection.Tables(1).Columns(iCol).Width             sNext = sCurrent - 1             If sNext < 1 Then sNext = 1             Selection.Tables(1).Columns(iCol).SetWidth _               ColumnWidth:=sNext, RulerStyle:=wdAdjustNone         Else             MsgBox ("More than one column selected")

End If     Else         MsgBox ("Insertion point not within a table")

End If 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 (13369) á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: