在日常工作和生活中，Word是我们习惯使用的办公软件，很多时候为了某些“变态”的要求，往往需要通过大量繁复的步骤进行操作，效率相当之低。
其实，利用VBA宏代码，可以大大提高工作效率，本文以Word 2003/2007这两个应用最为广泛的版本为例，介绍一些比较典型的应用实例。
实例1：统计修订的字数
在实际工作中，我们经常会对文档进行修改，为了不同用户查阅的方便，一般都会使用修订模式，此时会在文档中清楚的显示出来，但增加的字数和删除的字数却并未被统计出来。难道只能手工统计？
利用VBA宏代码，可以非常方便的统计出修订过程中增加的字数和删除的字数，具体代码如下：
- Sub test()
- Dim Rev As Revision, c1 As Long, n1 As Integer, a As String
- Dim Wd As Range, c2 As Long, n2 As Integer, b As String
- For Each Rev In ActiveDocument.Revisions
- If Rev.Type = wdRevisionInsert Then
- For Each Wd In Rev.Range.Words
- c1 = c1 + IIf(Wd Like "[一-龥]*", Wd.Characters.Count, 1)
- Next
- n1 = n1 + 1
- a = a & Rev.Range.text & vbTab
- ElseIf Rev.Type = wdRevisionDelete Then
- For Each Wd In Rev.Range.Words
- c2 = c2 + IIf(Wd Like "[一-龥]*", Wd.Characters.Count, 1)
- Next
- n2 = n2 + 1
- b = b & Rev.Range.text & vbTab
- End If
- Next
- MsgBox "增加内容" & n1 & "处共" & c1 & "字；删除内容" &
- n2 & "处共" & c2 & "字。"
- End Sub
上述代码主要是基于Word 2007对于Words集合对象的判断进行统计，宏名称“test”可以任意取；“[一-龥]”表示所有中文汉字。
代码检查无误之后，单击工具栏上的“保存”按钮执行保存操作，返回Word窗口之后，按下A l t+F8组合键，打开“宏”对话框，选择列表框中的“test”，单击右侧的“运行”按钮，很快会看到准确的结果，包括增加和删除共几种、多少字，这样就清晰多了。(责任编辑：admin)
| 
