VBA即用型代码手册：计算选择的单词数Count Words in Selection

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是： VBA即用型代码手册：计算选择的单词数Count Words in Selection

【分享成果，随喜正能量】230 烦恼生起时，越是苦恼逃脱，苦恼就越来愈多。认真面对，坦诚接纳，以烦恼滋养自己，就是成长。

第六章 Word对象及示例

Word Objects and Macro Examples

6 计算选择的单词数Count Words in Selection

这个 Word VBA 宏将计算选择中的单词数。 如果没有选择，它将计算整个文档中的单词数。

This Word VBA Macro will count the number of words in the selection. If no selection is made, it will count the number of words in the entire document.

Sub mynzWordCount()

'计算整个文档，然后计算选择的字数（如果选择了某些内容）

Dim nWordsCount As Long

Dim nCharCount As Long

nWordsCount = ActiveDocument.Range.ComputeStatistics(wdStatisticWords)

nCharCount = ActiveDocument.Range.ComputeStatistics(wdStatisticCharacters)

MsgBox "整个文档包含: " & vbCrLf & nWordsCount & " 单词和" & vbCrLf & _

nCharCount & " 没有空格的字符", , "Word Count"

'现在显示所选文本的字数

If Selection.Words.Count >= 1 And Selection.Type <> wdSelectionIP Then

nWordsCount = Selection.Range.ComputeStatistics(wdStatisticWords)

nCharCount = Selection.Range.ComputeStatistics(wdStatisticCharacters)

MsgBox "所选文本包含: " & vbCrLf & nWordsCount & " 单词和" & vbCrLf & _

nCharCount & " 没有空格的字符", , "Word Count (selection)"

End If

End Sub

• 本节内容参考程序文件：Chapter06.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：