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.

Câu trả lời là bạn có thể nhận được thông tin bạn muốn thông qua việc sử dụng Ngăn đánh giá. Hiển thị tab Xem lại của ruy-băng, sau đó nhấp vào công cụ Ngăn Xem xét (trong nhóm Theo dõi). Word hiển thị Ngăn Xem xét trên màn hình và ở đầu ngăn là bản tóm tắt các sửa đổi được thực hiện trong tài liệu. Nó hiển thị số liệu thống kê cho năm thay đổi sau:

Xóa chèn Di chuyển Thay đổi định dạng * Nhận xét

Những số liệu thống kê này có vẻ phù hợp với hóa đơn, nhưng bạn sẽ nhớ rằng tôi đã nói rằng chúng cung cấp “loại” thông tin mong muốn. Chúng hơi ngắn nếu những gì bạn thực sự muốn là một số lượng từ đã thay đổi. Số lượng thống kê thay đổi, không thay đổi từ. Ví dụ: nếu bạn xóa một cụm từ bao gồm nhiều từ, chỉnh sửa đó chỉ được tính là một lần xóa duy nhất trong thống kê. Tương tự, nếu bạn thêm một cụm từ vào tài liệu của mình, phần bổ sung đó được tính là một lần chèn, ngay cả khi phần chèn chứa một đoạn văn hoàn chỉnh.

Nếu bạn muốn các từ thực tế được thay đổi, thì rất tiếc bạn đã không gặp may — Word không cung cấp cách nào để có được thông tin mong muốn. Tuy nhiên, bạn có thể tạo macro của riêng mình để xác định thông tin mong muốn. Đây là một ví dụ:

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