打造Word高级字数统计功能

作者: 来源:网络文章时间:2005-12-13 15:15:45

打造Word高级字数统计功能(1) Word本身提供了强大的字数统计功能。以Word XP为例，选择菜单“工具”→“字数统计”，Word会显示出页数、字数、段落数、行数等信息，足以满足大多数用户的需要。尽管如此，有时候还是不免出现鞭长莫及的情形。

一、单个词语的出现次数

　　有一次一位朋友问我：Word能不能统计出特定关键词（例如某个人的姓名）的出现次数？我只能告诉他Word本身不直接支持这方面的文档分析功能。但是，我们可以另辟蹊径，用“查找/替换”功能得到某个词语的出现次数。步骤如下：

⑴ 按Ctrl+H显示出“查找和替换”对话框的“替换”页。

⑵ 在“查找内容”栏，输入要统计其出现次数的词语。

⑶ 在“替换为”栏，输入“^&”，表示要替换的内容就是查找的内容。这样，执行替换操作后文档的内容实际上不会改变。

⑷ 点击“全部替换”按钮。

⑸ Word执行替换，然后显示出有多少个词语被替换，如图一。这个数字就是该词语在文档中出现的次数。

Windows 2003技巧 20031010-1.gif" align="Center" >

图一

　　如果只是偶尔要了解一二个词语的出现次数，上面的办法足以应付。但是，如果经常要进行这类统计，最好用一个Word宏简化操作。下面的Word宏FindWords()首先提示用户要统计的单词，然后显示出该单词在文档中出现的次数；只要用户不点击“取消”按钮（或在不输入单词的情况下点击“确定”按钮），它将一直重复这个过程。
Sub FindWords()

Dim sResponse As String '要统计的单词

Dim iCount As Integer '出现次数

'反复询问要统计的单词，直至用户点击“取消”按钮

Do

' 获得想要统计其出现次数的单词

sResponse = InputBox(Prompt:="你想要统计什么单词？", _

Title:="统计单词出现次数", Default:="")

If sResponse > "" Then

' 每次统计之前，先将计数器清零

iCount = 0

Application.ScreenUpdating = False

With Selection

.HomeKey Unit:=wdStory

With .Find

.ClearFormatting

.Text = sResponse

' 扫描整个文档，统计指定单词的出现次数

Do While .Execute

iCount = iCount + 1

Selection.MoveRight

Loop

End With

' 显示出统计结果

MsgBox "单词“" & sResponse & "”" & " 共出现 " & iCount & " 次"

End With

Application.ScreenUpdating = True

End If

Loop While sResponse <> ""

1.打造Word高级字数统计功能(1)
2.打造Word高级字数统计功能(2)
3.打造Word高级字数统计功能(3)
4.打造Word高级字数统计功能(4)
5.打造Word高级字数统计功能(5)

共5页 9 7 [1] [2] [3] [4] [5] 8 :>

打造Word高级字数统计功能相关文章：

打造Word高级字数统计功能相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com