Wordが、選択範囲またはドキュメント全体の単語数を決定する方法を提供することは、おそらくすでにご存知でしょう。 Wordには、適切な数を把握するための独自の内部アルゴリズムがあります。実際の単語数を知る必要がある場合、これは素晴らしいことです。

しかし、実際の単語数が数えられる前に、タイピストはドキュメント内の平均的な単語の数を把握していました。これは、入力された文字数を計算し、その数字を5で割ることによって行われました。目的によっては、この昔ながらのアプローチを使用して単語数を計算する必要がある場合があります。これは、次のように単純なマクロで実行できます。

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_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（12345）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link昔ながらの方法で単語を数える。