マクロを開発するときは、テキスト選択に含まれる文字数を知っておくと役立つことがよくあります。次のVBAマクロCharCountは、選択範囲の文字数を表示します。

Sub CharCount()

Dim Title As String     Dim CharCount As Integer     Dim Message As String

Title = "CharCount"

CharCount = Len(Selection)

Message = LTrim(Str(CharCount)) + " character"

If CharCount <> 1 Then Message = Message + "s"

MsgBox Message, vbOKOnly, Title End Sub

注：

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

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

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

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