Wordには、ドキュメント内の単語数をカウントできる組み込みツールが用意されています。ただし、ドキュメント内の単語数を常に更新することを好む人もいます。このようにして、単語カウンターを監視し、ドキュメント内の目的の単語数に達したときに書き込みを停止できます。

残念ながら、Wordには、オンまたはオフにできる組み込みの実行中の単語数はありません。ただし、必要な情報を提供するマクロを作成することはできます。次の気の利いたマクロは、書式設定ツールバーの最後に常に更新される単語数を表示します。

Sub WordCounter()

Set myBar = CommandBars("Formatting")

Set myControls = myBar.Controls     NumButtons = myControls.Count

ButtonLoc = 0     For J = 1 To NumButtons         If myControls(J).Type = msoControlButton Then             ButtonName$ = myControls(J).OnAction             If ButtonName$ = "WordCounter" Then ButtonLoc = J         End If     Next J

If ButtonLoc = 0 Then         ButtonLoc = NumButtons + 1         Set newControl = myControls.Add(Type:=msoControlButton)

newControl.OnAction = "WordCounter"

newControl.Style = msoButtonCaption     End If

Set myRange = ActiveDocument.Content     WdCount = myRange.ReadabilityStatistics(1).Value     With myControls(ButtonLoc)

.Caption = WdCount     End With

Application.OnTime When:=Now + TimeSerial(0, 0, 5), _       Name:="WordCounter"

End Sub

このマクロは、最初に実行されたときに、書式設定ツールバーの最後に単語数を追加することに注意してください。それ以降、ツールバーボタンはそのまま残ります。

ボタンがツールバーの最後にないように後でツールバーを変更すると、マクロはそれを見つけてそれに応じて動作します。

（このマクロを実行した後）最初にWordを起動するときは、ツールバーボタンをクリックしてマクロを起動する必要があります。もちろん、Wordを最初に起動したときにWordCounterを実行する別のAutoStartマクロを作成することもできます。

マクロについて注意すべきことの1つは、5秒ごとに再実行されることです。

これが頻繁すぎる場合は、マクロの終わり近くにあるTimeSerial関数の値（5）を変更できます。システムの速度によっては、マクロを実行するたびに画面がわずかにちらつくことがありますが、単語数は確実に更新されます。代わりに、ツールバーのボタンをクリックしたときにのみ単語数をカウントしたい場合は、マクロの終わり近くにあるApplication.OnTime行を削除するだけです。

マクロを削除して実行されないようにする場合は、次の3つの簡単な手順に従う必要があります。

。 Wordを終了します。

。 Wordを再起動します。マクロは実行されていません。

。書式設定ツールバーを編集して、WordCounterボタンを削除します。

注：

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

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

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

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