Word có công cụ tiện lợi này giúp bạn đếm số lượng từ trong tài liệu. Vấn đề duy nhất là, nó không đếm được tất cả các từ. Ví dụ: nếu tài liệu của bạn chứa các hộp văn bản, thì công cụ đếm từ sẽ không bao gồm bất kỳ văn bản nào trong các hộp từ trong tổng số từ cho tài liệu. Đây có thể là một vấn đề thực sự, đặc biệt nếu bạn đang sử dụng hộp văn bản để triển khai một phần tử tài liệu đặc biệt, chẳng hạn như thanh bên.

Tuy nhiên, có một cách giải quyết vấn đề. Bạn có thể đếm tất cả các từ trong phần chính của tài liệu như bình thường, sau đó ghi lại số đó. Sau đó, di chuyển điểm chèn vào hộp văn bản.

Nếu bạn chạy công cụ đếm từ, Word sẽ trả về số từ trong hộp văn bản đó. Nếu bạn chọn nhiều hộp văn bản trước khi chạy công cụ đếm từ, thì Word sẽ trả về số lượng tất cả các từ trong tất cả các hộp văn bản bạn đã chọn. Nếu bạn đang sử dụng các hộp văn bản được liên kết, thì bạn không cần phải chọn tất cả chúng, nhưng bạn cần di chuyển điểm chèn vào hộp văn bản cuối cùng trong chuỗi. Khi bạn cộng số từ trong tài liệu chính cùng với số từ cho bất kỳ hộp văn bản nào, bạn sẽ có số từ cho toàn bộ tài liệu.

Nếu bạn sử dụng hộp văn bản nhiều, quá trình trên có thể khá khó chịu. Nếu muốn, bạn có thể tạo một macro sẽ tự động hóa quy trình cho bạn. Macro sau xác định số từ trong tài liệu chính và thêm vào đó số từ cho mỗi hộp văn bản trong tài liệu. Kết quả là tổng số từ, như mô tả ở trên.

Sub TxtBxCount()

Dim i As Integer     Dim TxtWrds As Range     Dim TxtWrdsStats As Long     Dim ToTxtWrds As Long     Dim Lngwords As Long     Dim ToWords As Long

Lngwords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)

For s = 1 To ActiveDocument.Shapes.Count         Set TxtWrds = ActiveDocument.Shapes(s).TextFrame.TextRange         TxtWrdsStats = TxtWrds.ComputeStatistics(Statistic:=wdStatisticWords)

ToTxtWrds = ToTxtWrds + TxtWrdsStats     Next     ToWords = Lngwords + ToTxtWrds     MsgBox ("The document has " & Format(ToWords, "##,##0") & " words.")

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