Word cung cấp một công cụ tích hợp cho phép bạn đếm số lượng từ trong tài liệu của mình. Tuy nhiên, một số người thích có số lượng từ được cập nhật liên tục trong tài liệu của họ. Bằng cách đó, họ có thể để mắt đến bộ đếm từ và ngừng viết khi đã đạt đến số lượng từ mong muốn trong tài liệu của mình.

Rất tiếc, Word không cung cấp số lượng từ đang chạy được tích hợp sẵn mà bạn có thể bật hoặc tắt. Tuy nhiên, bạn có thể tạo một macro cung cấp thông tin cần thiết cho bạn. Macro tiện lợi sau sẽ hiển thị số lượng từ được cập nhật liên tục ở cuối thanh công cụ định dạng:

Sub WordCounter()

Set myBar = CommandBars("Formatting")

Set myControls = myBar.Controls     NumButtons = myControls.Count

ButtonLoc = 0     For J = 1 To NumButtons         If myControls(J).Type = msoControlButton Then             ButtonName$ = myControls(J).OnAction             If ButtonName$ = "WordCounter" Then ButtonLoc = J         End If     Next J

If ButtonLoc = 0 Then         ButtonLoc = NumButtons + 1         Set newControl = myControls.Add(Type:=msoControlButton)

newControl.OnAction = "WordCounter"

newControl.Style = msoButtonCaption     End If

Set myRange = ActiveDocument.Content     WdCount = myRange.ReadabilityStatistics(1).Value     With myControls(ButtonLoc)

.Caption = WdCount     End With

Application.OnTime When:=Now + TimeSerial(0, 0, 5), _       Name:="WordCounter"

End Sub

Lưu ý rằng macro này thêm số lượng từ vào cuối thanh công cụ định dạng khi nó chạy lần đầu tiên. Nút thanh công cụ vẫn ở đó từ đó trở đi.

Nếu sau đó bạn sửa đổi thanh công cụ của mình để nút không nằm ở cuối thanh công cụ, macro sẽ tìm thấy nó và hoạt động tương ứng.

Khi bạn khởi động Word lần đầu tiên (sau khi đã chạy macro này), bạn sẽ cần nhấp vào nút trên thanh công cụ để khởi động macro. Tất nhiên, bạn có thể tạo một macro AutoStart riêng để chạy WordCounter khi bạn mới bắt đầu sử dụng Word.

Một điều cần lưu ý về macro là nó chạy lại sau mỗi năm giây.

Nếu điều này xảy ra quá thường xuyên, bạn có thể thay đổi giá trị (5) trong chức năng TimeSerial ở gần cuối macro. Tùy thuộc vào tốc độ hệ thống của bạn, bạn có thể nhận thấy màn hình nhấp nháy nhẹ mỗi khi macro chạy, nhưng bạn chắc chắn sẽ có số lượng từ được cập nhật. Thay vào đó, nếu bạn chỉ muốn đếm từ khi nhấp vào nút trên thanh công cụ, chỉ cần xóa dòng Application.OnTime ở gần cuối macro.

Nếu bạn muốn loại bỏ macro để nó không chạy nữa, bạn nên làm theo ba bước đơn giản sau:

  1. Thoát khỏi Word.

  2. Khởi động lại Word. Macro hiện không chạy.

  3. Chỉnh sửa thanh công cụ định dạng của bạn để loại bỏ nút WordCounter.

_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 (1745) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003.