Wordには、ドキュメント内の単語数をカウントするこの便利なツールがあります。唯一の問題は、すべての単語がカウントされないことです。たとえば、ドキュメントにテキストボックスが含まれている場合、単語カウントツールは、ドキュメントの全体的な単語カウントの単語ボックスにテキストを含めません。これは、特にテキストボックスを使用して、サイドバーなどの特別なドキュメント要素を実装している場合に、実際の問題になる可能性があります。

ただし、この問題を回避する方法はあります。通常どおり、ドキュメントの主要部分にあるすべての単語を数え、その数を書き留めることができます。次に、挿入ポイントをテキストボックスに移動します。

単語カウントツールを実行すると、Wordはそのテキストボックスに単語数を返します。単語カウントツールを実行する前に複数のテキストボックスを選択した場合、Wordは選択したすべてのテキストボックス内のすべての単語のカウントを返します。リンクされたテキストボックスを使用している場合は、すべてを選択する必要はありませんが、挿入ポイントをシリーズの最後のテキストボックスに移動する必要があります。メインドキュメントの単語数とテキストボックスの単語数を合計すると、ドキュメント全体の単語数になります。

テキストボックスを頻繁に使用する場合、上記のプロセスはかなり面倒になる可能性があります。必要に応じて、プロセスを自動化するマクロを作成できます。次のマクロは、メインドキュメントの単語数を決定し、ドキュメントの各テキストボックスの単語数を追加します。結果は、上記のように、合計単語数です。

Sub TxtBxCount()

Dim i As Integer     Dim TxtWrds As Range     Dim TxtWrdsStats As Long     Dim ToTxtWrds As Long     Dim Lngwords As Long     Dim ToWords As Long

Lngwords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)

For s = 1 To ActiveDocument.Shapes.Count         Set TxtWrds = ActiveDocument.Shapes(s).TextFrame.TextRange         TxtWrdsStats = TxtWrds.ComputeStatistics(Statistic:=wdStatisticWords)

ToTxtWrds = ToTxtWrds + TxtWrdsStats     Next     ToWords = Lngwords + ToTxtWrds     MsgBox ("The document has " & Format(ToWords, "##,##0") & " words.")

End Sub

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1658）は、Microsoft Word 97、2000、2002、および2003に適用されます。