Linda tự hỏi liệu có cách nào để đếm số từ có trong các bình luận (và chỉ các bình luận) trong một tài liệu hay không.

Cách dễ nhất để thực hiện nhiệm vụ này là sử dụng macro. Điều này là do Word cung cấp cho VBA một bộ sưu tập Nhận xét bao gồm tất cả các nhận xét trong tài liệu. Tất cả những gì bạn cần làm là xem qua từng bình luận và sau đó nhìn vào thuộc tính Count của bộ sưu tập Từ cho bình luận, theo cách này:

Sub CommentWordCount1()

Dim c As Comment     Dim lWords As Long     Dim sMsg As String

For Each c In ActiveDocument.Comments         lWords = lWords + c.Range.Words.Count     Next c

sMsg = "There are " & ActiveDocument.Comments.Count     sMsg = sMsg & " comments in the document. & vbCrLf & vbCrLf     sMsg = sMsg & "Word count: " & lWords     MsgBox sMsg End Sub

Nếu muốn, bạn cũng có thể sử dụng phương thức ComputeSt Statistics để tính số lượng từ, như sau:

Sub CommentWordCount2()

Dim c As Comment     Dim lWords As Long     Dim sMsg As String

For Each c In ActiveDocument.Comments         lWords = lWords + c.Range.ComputeStatistics(wdStatisticWords)

Next c

sMsg = "There are " & ActiveDocument.Comments.Count     sMsg = sMsg & " comments in the document. & vbCrLf & vbCrLf     sMsg = sMsg & "Word count: " & lWords     MsgBox sMsg End Sub

Khi bạn so sánh kết quả từ hai macro, bạn có thể nhận thấy sự khác biệt về số lượng từ. Điều này là do phương thức CompuSt Statistics xử lý dấu chấm câu khi thực hiện các phép tính của nó.

Bạn sẽ muốn so sánh các kết quả và dựa trên các đặc điểm của thông tin trong nhận xét của mình, hãy chọn cách tiếp cận phù hợp nhất với nhu cầu của bạn.

_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 (13531) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016.