Word具有这个漂亮的工具，可以为您计算文档中的单词数。唯一的问题是，它不计算所有单词。例如，如果您的文档包含文本框，则字数统计工具不会在文档的总字数中包含任何文本。这可能是一个真正的问题，尤其是在使用文本框实现特殊文档元素（如边栏）的情况下。

但是，有一种解决方法。您可以像平常一样对文档主要部分中的所有单词进行计数，然后写下该数字。然后将插入点移到文本框中。

如果您运行单词计数工具，Word将返回该文本框中的单词数。如果在运行单词计数工具之前选择了多个文本框，则Word将返回所选所有文本框中所有单词的计数。如果使用链接的文本框，则不必全部选中它们，但是您确实需要将插入点移到系列中的最后一个文本框中。当您将主文档中的字数加上所有文本框的字数加在一起时，您将拥有整个文档的字数。

如果您经常使用文本框，则上述过程可能会很麻烦。如果愿意，可以创建一个宏，该宏将为您自动执行该过程。下面的宏确定主文档中的字数，并向其中添加文档中每个文本框的字数。如上所述，结果是总字数。

Sub TxtBxCount()

Dim i As Integer     Dim TxtWrds As Range     Dim TxtWrdsStats As Long     Dim ToTxtWrds As Long     Dim Lngwords As Long     Dim ToWords As Long

Lngwords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)

For s = 1 To ActiveDocument.Shapes.Count         Set TxtWrds = ActiveDocument.Shapes(s).TextFrame.TextRange         TxtWrdsStats = TxtWrds.ComputeStatistics(Statistic:=wdStatisticWords)

ToTxtWrds = ToTxtWrds + TxtWrdsStats     Next     ToWords = Lngwords + ToTxtWrds     MsgBox ("The document has " & Format(ToWords, "##,##0") & " words.")

End Sub

注意：

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

点击此处在新的浏览器标签中打开该特殊页面。

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1658）适用于Microsoft Word 97、2000、2002和2003。