如何統計word中修訂條數（Word如何分別統計裡面的的插入和刪除的字數）

客戶發來的文件開啟了跟蹤修訂模式，如何分別統計裡面的的插入和刪除的字數，使用Word VBA搞定。

VBA程式碼

Sub TrackChangeCount() 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 = "插入" & vbCrLf sTemp = sTemp & " 字數: " & lInsertsWords & vbCrLf sTemp = sTemp & " 字元數（記空格）: " & lInsertsChar & vbCrLf sTemp = sTemp & "----------------------" & vbCrLf sTemp = sTemp & "刪除" & vbCrLf sTemp = sTemp & " 字數: " & lDeletesWords & vbCrLf sTemp = sTemp & " 字元數（記空格）: " & lDeletesChar & vbCrLf MsgBox sTemp, vbInformation, "統計結果" End Sub

使用教程

1.插入VBA程式碼

2.為VBA設定一個快捷按鈕

注：

1. 跟蹤修訂狀態下，可以分別統計插入和刪除的字數和字元數（記空格）

2. 不支援統計頁首頁尾修訂字數統計

3. 字數：是指當前文件中的文字個數。一箇中文字即算一個字；一個英文單詞算一個字。

4. 字元數：是指當前文件字元的個數，一箇中文字算作一個字元，一個由6個英文字母組成的英文單詞算作6個字元 。

5. 如果標點符號是全形，即佔一箇中文字位，算一個字；如果是半形，將不算作字數，只算字元數。

在“語料庫翻譯”公眾號對話方塊傳送截圖和關鍵詞「修訂字數VBA」,可直接獲得案例檔案和VAB程式碼。

本文轉自語料庫翻譯

關注微信公眾號“語言服務行業”，“翻譯技術教育與研究”，瞭解更多語言服務行業與翻譯技術相關的資訊和洞察~