您可能已经知道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是世界上最流行的文字处理软件。）此技巧（12345）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。您可以找到此技巧的一个版本Word的旧菜单界面在这里：

以老式方式计算单词数。