用老式计数字数(Microsoft Word)
您可能已经知道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 [以老式方式计算单词数]。