Lise正在处理50个小文档，其中许多文档不到一页纸。全部在单独的文件中（没有主文件或子文档）。她想知道所有文件中的总字数，并想知道是否有一种简单的方法来获取字数。

一种选择是使用可以为您计算字数的第三方加载项。以下是您可能需要检查的三个建议：

WordCounter: http://www.editorium.com/counter.htm FineCount: http://www.tilti.com/software-for-translators/finecount/?id=2_finecountv2 Total Assistant: http://www.surefiresoftware.com/totalassistant/

当然，如果您希望“自己动手”而不是依靠别人的解决方案，则可以创建一个相对简单的宏，该宏将遍历文件夹中的每个文件并计算总字数。

Sub GetWordCount()

Dim docname As String     Dim NumWords As Long     Dim NumFiles As Integer     Dim PathName As String

PathName = "c:\mypath\"



NumWords = 0     docname = Dir(PathName & ".doc")

While docname <> ""

NumFiles = NumFiles + 1         Documents.Open FileName:=PathName & docname, Visible:=False         Documents(docname).Activate

NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties("Number of words").Value

Documents(docname).Close savechanges:=False         docname = Dir     Wend

MsgBox ("There are " & NumWords & " words in " & NumFiles & " documents.")

End Sub

要使用该宏，请确保更改PathName变量，以使其反映包含要计算的文档的文件夹的路径。 （路径名称必须以反斜杠结尾。）运行宏时，它将在消息框中显示字数统计。

注意：

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

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

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

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

一组文档的字数统计。