Steven sử dụng Theo dõi Thay đổi trong tài liệu của mình mọi lúc. Anh ta cần một cách để chỉ đếm những từ đã được thay đổi trong tài liệu — những từ bị ảnh hưởng bởi Theo dõi Thay đổi.

Nếu bạn đang sử dụng phiên bản Word cũ hơn (trước Word 2003) thì có một cách để thực hiện việc này. Trong hộp Tìm, nếu bạn nhấn Ctrl + N, Word sẽ chỉ tìm thấy các từ “mới” …​ tức là Các thay đổi được Theo dõi. Sau đó, bạn có thể thay thế các “từ” này bằng chính chúng (sử dụng ^ & trong hộp Replace With) và nhận được số lượng các từ thay thế.

Nếu bạn đang sử dụng Word 2003, khả năng này không còn tồn tại do những thay đổi về cách Word theo dõi và hiển thị các thay đổi. Trong trường hợp này, bạn sẽ cần sử dụng macro để hiển thị thông tin mong muốn. Sau đây là ví dụ về macro bạn có thể sử dụng:

Sub GetTCStats()

Dim lInsertsWords As Long     Dim lInsertsChar As Long     Dim lDeletesWords As Long     Dim lDeletesChar As Long     Dim sTemp As String     Dim oRevision As Revision          lInsertsWords = 0     lInsertsChar = 0     lDeletesWords = 0     lDeletesChar = 0     For Each oRevision In ActiveDocument.Revisions         Select Case oRevision.Type             Case wdRevisionInsert                 lInsertsChar = lInsertsChar + Len(oRevision.Range.Text)

lInsertsWords = lInsertsWords + oRevision.Range.Words.Count             Case wdRevisionDelete                 lDeletesChar = lDeletesChar + Len(oRevision.Range.Text)

lDeletesWords = lDeletesWords + oRevision.Range.Words.Count         End Select     Next oRevision

sTemp = "Insertions" & vbCrLf     sTemp = sTemp & "    Words: " & lInsertsWords & vbCrLf     sTemp = sTemp & "    Characters: " & lInsertsChar & vbCrLf     sTemp = sTemp & "Deletions" & vbCrLf     sTemp = sTemp & "    Words: " & lDeletesWords & vbCrLf     sTemp = sTemp & "    Characters: " & lDeletesChar & vbCrLf     MsgBox sTemp End Sub

Macro này thực hiện từng bước thay đổi trong tài liệu hiện tại và tính riêng số lượng từ và số lượng ký tự cho cả việc chèn và xóa. Các số liệu thống kê sau đó được trình bày trong một hộp thông báo. Lưu ý rằng macro sẽ xem xét bộ sưu tập Từ cho mỗi thay đổi trong tài liệu.

Bạn nên hiểu rằng số từ, như được trình bày ở đây, là một số gần đúng. Điều này là do cách mà các từ được đếm. Ví dụ: mỗi dấu câu trong một phép cộng được tính là một từ riêng biệt. Điều này có nghĩa là một cụm từ chẳng hạn như “như mọi người có thể thấy, đây là một cách tuyệt vời” sẽ được đánh dấu là mười từ thay vì chín (dấu phẩy được tính là một từ riêng biệt). Hơn nữa, nếu cụm từ bạn đã thêm bao gồm một khoảng trắng ở đầu — điều mà các phần chèn thường làm — thì sẽ có mười một từ được đánh số cho phần chèn vì khoảng trống đó.

_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 (1095) á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: