运行字数统计（Microsoft Word）
Word提供了一个内置工具，使您可以计算文档中单词的数量。但是，有些人希望文档中的单词数不断更新。这样，他们可以关注单词计数器，并在文档中达到所需单词数时停止书写。
不幸的是，Word没有提供您可以打开或关闭的内置运行中的单词数。但是，您可以创建一个宏，它将为您提供必要的信息。以下漂亮的宏将在格式工具栏的末尾显示不断更新的字数：
Sub WordCounter()
Set myBar = CommandBars("Formatting")
Set myControls = myBar.Controls NumButtons = myControls.Count
ButtonLoc = 0 For J = 1 To NumButtons If myControls(J).Type = msoControlButton Then ButtonName$ = myControls(J).OnAction If ButtonName$ = "WordCounter" Then ButtonLoc = J End If Next J
If ButtonLoc = 0 Then ButtonLoc = NumButtons + 1 Set newControl = myControls.Add(Type:=msoControlButton)
newControl.OnAction = "WordCounter"
newControl.Style = msoButtonCaption End If
Set myRange = ActiveDocument.Content WdCount = myRange.ReadabilityStatistics(1).Value With myControls(ButtonLoc)
.Caption = WdCount End With
Application.OnTime When:=Now + TimeSerial(0, 0, 5), _ Name:="WordCounter"
End Sub
请注意，此宏首次运行时会在格式工具栏的末尾添加单词计数。从那时起，工具栏按钮将停留在那里。
如果您以后修改工具栏，使该按钮不在工具栏的末尾，则宏将找到它并采取相应的措施。
首次启动Word（运行此宏后）时，将需要单击工具栏按钮以启动宏。当然，您可以创建一个单独的AutoStart宏，该宏将在您首次启动Word时运行WordCounter。
关于宏的一件事要注意，它每五秒钟重新运行一次。
如果过于频繁，则可以在宏末尾附近的TimeSerial函数中更改值（5）。根据您的系统速度，您可能会注意到每次运行宏时都会出现轻微的屏幕闪烁现象，但是您肯定会拥有更新的字数。如果仅在单击工具栏上的按钮时希望字数统计，只需删除宏末尾附近的Application.OnTime行。
如果要删除宏使其不再运行，则应遵循以下三个简单步骤：
。退出Word。
。重新启动Word。宏现在未运行。
。编辑格式工具栏以删除WordCounter按钮。
注意：
如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。
_WordTips_是您进行经济有效的Microsoft Word培训的来源。
（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1745）适用于Microsoft Word 97、2000、2002和2003。