如何统计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代码。

本文转自语料库翻译

关注微信公众号“语言服务行业”，“翻译技术教育与研究”，了解更多语言服务行业与翻译技术相关的资讯和洞察~

赞 (0)

相关推荐

  • 电脑版Word中怎么将新版word封面添加

    电脑版Word中怎么将新版word封面添加

    电脑版Word软件被很多人使用,用来编辑文档等,有的用户在使用该软件时,为了可以使文档更加好看,因此想要添加新版word封面,但是却不知道如何添加,那么小编就来为大家介绍一下吧.具体如下:1. 第一步 ...

  • 在Word中如何添加更改Word页眉横线

    在Word中如何添加更改Word页眉横线呢?很多人都不会,下面小编来教大家. 操作方法 01 首先,我们双击页眉的那根横线: 02 然后我们选中那根横线: 03 然后我们点击开始,点击边框的下拉箭头, ...

  • 如何在WORD中显示行数

    今天需要统计一下在WORD中的代码的行数,现设置成功,给大家分享一下. 操作方法 01 打开Word 2007,里面输入相应的内容. 02 在word 2007的工具栏上,页面布局,行号. 03 选择 ...

  • 在word中输入平方数的方法

    在word中输入平方数的方法

    Word中输入平方米/立方米符号的四种方法 以在Word中输入立方米符号为例 方法一.快捷键输入 米方米符号:"Alt+0179",按住Alt键不放,然后依次按下0179这四个数字 ...

  • word中怎样制作表格?word制作表格方法介绍

    word中表格的应用是很普遍的,熟悉表格的各项参数设置,可以提高我们的日常办公效率.下面小编就为大家介绍word制作表格方法,来看看吧! 1.打开word软件,在插入菜单下,找到表格选项,站开展开其下 ...

  • 在word中怎么画线条?word画线条四大技巧

    在工作中有时候会在word中使用到线条,但是很多朋友不知道如何在word中画线条,其实画线条工具在绘图工具栏中,可以直接选择的,今天小编就带领大家来学习下word画线条的技巧. 方法/步骤 1.当你需 ...

  • 在word中如何输入√呢?word输入勾号方法

    在文档编辑过程中我们有时可能需要在文字前打个勾,那么在word中应如何输入“√”呢?下面小编就为大家word输入勾号方法介绍,不会的朋友可以参考本文,来看看吧! 步骤: 1.在桌面找到word桌面快捷 ...

  • 如何压缩word中的图片大小?word图片压缩的方法

    大家在平时使用word办公时,经常要插入图片,有时插入的图片过多导致文件特别大,电脑会反映很慢,下面小编教大家如何压缩word中的图片方法,来看看吧! 方法一:使用压缩图片命令 1.首先打开Word文 ...

  • word中怎么设置超链接 word设置超链接方法图解

    相信大家对超链接概念的理解并不是特别的难,我们在网页设计中就会使用到超链接,不要以为只有在网页中才可以使用超链接,我们在word中也是可以去插入超链接的,超链接的作用就不必再这里啰嗦跟大家说了,我们主 ...