客户发来的文档开启了跟踪修订模式，如何分别统计里面的的插入和删除的字数，使用Word VBA搞定。
Sub TrackChangeCount()Dim lInsertsWords As LongDim lInsertsChar As LongDim lDeletesWords As LongDim lDeletesChar As LongDim sTemp As StringDim oRevision As RevisionlInsertsWords = 0lInsertsChar = 0lDeletesWords = 0lDeletesChar = 0For Each oRevision In ActiveDocument.RevisionsSelect Case oRevision.TypeCase wdRevisionInsertlInsertsChar = lInsertsChar + Len(oRevision.Range.Text)lInsertsWords = lInsertsWords + oRevision.Range.Words.CountCase wdRevisionDeletelDeletesChar = lDeletesChar + Len(oRevision.Range.Text)lDeletesWords = lDeletesWords + oRevision.Range.Words.CountEnd SelectNext oRevisionsTemp = "插入" & vbCrLfsTemp = sTemp & " 字数: " & lInsertsWords & vbCrLfsTemp = sTemp & " 字符数（记空格）: " & lInsertsChar & vbCrLfsTemp = sTemp & "----------------------" & vbCrLfsTemp = sTemp & "删除" & vbCrLfsTemp = sTemp & " 字数: " & lDeletesWords & vbCrLfsTemp = sTemp & " 字符数（记空格）: " & lDeletesChar & vbCrLfMsgBox sTemp, vbInformation, "统计结果"End Sub
1.插入VBA代码
2.为VBA设置一个快捷按钮
注：
1. 跟踪修订状态下，可以分别统计插入和删除的字数和字符数（记空格）
2. 不支持统计页眉页脚修订字数统计
3. 字数：是指当前文档中的文字个数。一个中文字即算一个字；一个英文单词算一个字。
4. 字符数：是指当前文档字符的个数，一个中文字算作一个字符，一个由6个英文字母组成的英文单词算作6个字符 。
5. 如果标点符号是全角，即占一个中文字位，算一个字；如果是半角，将不算作字数，只算字符数。
