Bạn có thể đã biết rằng Word cung cấp một cách để xác định số lượng từ trong một lựa chọn hoặc trong toàn bộ tài liệu của bạn. Word có các thuật toán nội bộ của riêng nó để tìm ra số lượng thích hợp. Điều này thật tuyệt, nếu bạn cần biết số lượng từ thực tế.

Tuy nhiên, trước những ngày đếm từ thực tế, những người đánh máy đã tìm ra số từ trung bình trong một tài liệu. Điều này được thực hiện bằng cách tìm ra số ký tự được nhập, sau đó chia con số đó cho năm. Đối với một số mục đích, bạn vẫn có thể cần tính số từ bằng cách sử dụng phương pháp cổ điển này. Điều này có thể được thực hiện với một macro đơn giản, như sau:

Sub WordCount()

Dim Title As String     Dim WordCount As Integer     Dim Message As String

Title = "WordCount"

WordCount = Int((Len(Selection) / 5) + 0.5)

Message = LTrim(Str(WordCount)) + " word"

If WordCount <> 1 Then Message = Message + "s"

MsgBox Message, vbOKOnly, Title 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 (12345) á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: