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 CurrentSize As Integer     Dim NextSize As Integer     Dim CurCol As Integer

'Get the current width (in points)

CurCol = Selection.Cells(1).ColumnIndex     CurrentSize = Selection.Tables(1).Columns(CurCol).Width

'Increase the current width by one point     NextSize = CurrentSize + 1     Selection.Columns(1).SetWidth _       ColumnWidth:=NextSize, _       Rulerstyle:=wdAdjustNone 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 CurrentSize As Integer     Dim NextSize As Integer     Dim CurCol As Integer

'Get the current width (in points)

CurCol = Selection.Cells(1).ColumnIndex     CurrentSize = Selection.Tables(1).Columns(CurCol).Width

'Decrease the current width by one point     NextSize = CurrentSize - 1     Selection.Columns(1).SetWidth _       ColumnWidth:=NextSize, _       Rulerstyle:=wdAdjustNone 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 (3912) á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: