マークは、特定のテキスト文字列がドキュメント内で出現する回数のカウントを決定するために、マクロ内で最も速く、最も効率的な方法を探しています。残念ながら、これを1つか2つの簡単なコマンドで行う方法はありません。代わりに、Wordの検索と置換機能を使用してドキュメントを「ステップスルー」する必要があります。

まず、元のドキュメントを台無しにするリスクを冒さないように、ドキュメントの一時的なコピーを作成します。次に、マクロで変数を使用して、目的のテキストが置き換えられる回数をカウントし、置き換えが発生するたびに変数をインクリメントします。次の例では、回数は変数Replacementsになります。

次に、値を使用するか、値を文字列に変換して表示できます。

Sub CountReplacements     Dim Replacements As Integer

Replacements = 0     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = InputBox("Enter the text you want to find:")

.Replacement.Text = InputBox("Enter the replacement text:")

.Forward = True         .Wrap = wdFindContinue         .Format = False         .Execute Replace:=wdReplaceOne

Do Until Not .Found             .Execute Replace:=wdReplaceOne             Replacements = Replacements + 1             Selection.MoveRight Unit:=wdCharacter, Count:=1         Loop

If Replacements <> 0 Then             MsgBox _               "" & .Text & " has been replaced " & _               CStr(Replacements) & " times with " & _               .Replacement.Text         Else             MsgBox .Text & " was not found in the document/selection."

End If     End With End Sub

注:

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

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

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(3368)は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス(Word 2007)用のこのヒントのバージョンを見つけることができます。以降)ここ: