我給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實踐經驗，全部濃縮在下面的各個教程中：