デビッドは、生徒が作曲で使用しなければならない一連の約20の単語とフレーズを生徒に割り当てる教師です。各単語またはフレーズは、少なくとも1回使用する必要があります。生徒は、単語やフレーズの1つを使用するたびに、1ポイントを獲得しますが、重複する場合は追加のポイントはありません。 Davidは、おそらく各単語やフレーズを検索し、それらの使用状況のある種の記録を作成するマクロを使用して、作業にマークを付ける簡単な方法を探しています。デイブの望みは、Wordが検索とカウントを実行して、構成の品質の評価にエネルギーを集中できるようにすることです。

特定の単語またはフレーズの出現回数を手動で把握したい場合は、Wordの検索機能を使用できます。 Word 2007を使用している場合は、次の手順に従ってください。

。 Ctrl + Fを押します。 Wordは、[検索と置換]ダイアログボックスの[検索]タブを表示します。

。 [検索する文字列]ボックスに、検索する単語またはフレーズを入力します。

。利用可能な場合は、[その他]ボタンをクリックします。

。 1つの単語を検索する場合は、[単語全体のみを検索]チェックボックスをクリックします。

。 [見つかったすべてのアイテムを強調表示する]チェックボックスをクリックします。

。 [すべて検索]をクリックします。

Wordは、ダイアログボックスに、単語またはフレーズの出現回数を表示します。 Word2010またはWord2013を使用している場合は、必要な数をさらにすばやく見つけることができます。

。 Ctrl + Fを押します。 Wordは、画面の左側にナビゲーション作業ウィンドウを表示します。ペインで、[参照]タブが選択されています。

。 1つの単語を検索する場合は、小さな虫眼鏡ボタンの右側にある下向き矢印をクリックして、[オプション]を選択します。 [オプション]ダイアログボックスで、[単語全体のみを検索]を選択します。

。ナビゲーションペインの上部にあるボックスに、検索する単語またはフレーズを入力して、Enterキーを押します。

Wordは、ナビゲーション作業ウィンドウの上部に、単語またはフレーズの出現回数を表示します。

これらのテクニックは便利ですが、35の異なる生徒の作文で20の単語やフレーズを繰り返す必要がある場合、その魅力の一部を失います。実際、マクロはより実用的なアプローチです。

[検索と置換]ダイアログボックスに表示されるオカレンスの数にVBAからアクセスできると非常に便利です。私が判断できた限り、この値にはアクセスできません。つまり、マクロ自体で繰り返し検索とカウントを行う必要があります。これを行う方法の良い例の1つは、マイクロソフトサポート技術情報にあります：

http://support.microsoft.com/?kbid=240157

このページは、コードがWord 2000用であることを示していますが、Word2007およびWord2010でも問題なく機能します。このページのコードは、一連の単語またはフレーズを検索してすべての結果を表示するように、比較的簡単に変更できます。すぐに。もう1つのかなりユニークなアプローチは、生徒の作文に関する仮定を逆にすることです。各単語またはフレーズを使用すると仮定し（20の単語とフレーズがある場合はスコア20から開始）、使用しない場合はポイントを減算するだけです。それらの中の一つ。

Sub ScoreCard()

Dim iScore As Integer     Dim iTopScore As Integer     Dim WordList As Variant     Dim i As Integer     Dim sUnused As String

' Enter the words or phrases in the array below;     ' each word or phrase in quotation marks and     ' separated by commas     WordList = Array("Mr.", "jelly", "wince", _       "proper", "fix", "compound", "high and dry")



' Counts the number of words in the array     iTopScore = CInt(UBound(WordList)) + 1     iScore = iTopScore

' Counts the number of "misses"

sUnused = ""

For i = 1 To iTopScore         With Selection.Find             .Forward = True             .Wrap = wdFindContinue             .Format = False             .MatchCase = False             .MatchAllWordForms = False             .MatchWholeWord = True             .Execute FindText:=WordList(i - 1)

End With         If Selection.Find.Found = False Then            iScore = iScore - 1            sUnused = sUnused & vbCrLf & WordList(i - 1)

End If     Next i

' Displays the score     If iScore = iTopScore Then         sUnused = "All words and phrases were used."

Else         sUnused = "The following words and phrases" & _           " were not used:" & sUnused     End If     sUnused = vbCrLf & vbCrLf & sUnused     MsgBox Prompt:="The score is " & iScore & _       " of " & iTopScore & sUnused, Title:="What's the Score?"

End Sub

マクロには、コンポジションのスコアが表示され、コンポジションで使用されなかった単語やフレーズも表示されます。

注：

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

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

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

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

Wordの古いメニューインターフェイスに関するこのヒントのバージョンは、次の場所にあります：

link：/ word-Checking_for_Words_and_Phrases [単語とフレーズのチェック]。