您可能已经知道Word提供了一种确定所选内容或整个文档中单词数量的方法。 Word有自己的内部算法来找出正确的计数。如果您需要知道实际的字数,那就太好了。

但是,在实际字数统计之前,打字员已经弄清楚了文档中平均字数。这是通过找出要键入的字符数,然后将该数字除以五来完成的。出于某些目的,您可能仍需要使用这种老式方法计算字数。可以使用一个简单的宏来完成此操作,如下所示:

Sub WordCount()

Dim Title As String     Dim WordCount As Integer     Dim Message As String

Title = "WordCount"

WordCount = Int((Len(Selection) / 5) + 0.5)

Message = LTrim(Str(WordCount)) + " word"

If WordCount <> 1 Then Message = Message + "s"

MsgBox Message, vbOKOnly, Title End Sub

注意:

如果您想知道如何使用此页面(或_WordTips_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

(Microsoft Word是世界上最流行的文字处理软件。)本技巧(757)适用于Microsoft Word 97、2000、2002和2003。您可以为Word(Word 2007)的功能区界面找到此技巧的版本。和更高版本)在这里:

`link:/ wordribbon-Counting_Words_the_Old_Fashioned_Way [以老式方式计算单词数]。