David ist ein Lehrer, der seinen Schülern eine Reihe von ungefähr zwanzig Wörtern und Phrasen zuweist, die sie in einer Komposition verwenden müssen. Jedes Wort oder jede Phrase muss mindestens einmal verwendet werden. Die Schüler erhalten einen Punkt für jedes Mal, wenn sie eines der Wörter oder Sätze verwenden, obwohl für Duplikate nichts extra ist. David sucht nach einer einfachen Möglichkeit, ihre Arbeit zu markieren, vielleicht mit einem Makro, das nach jedem Wort und jeder Phrase sucht und eine Art Aufzeichnung ihrer Verwendung erstellt. Daves Wunsch ist es, dass Word das Suchen und Zählen übernimmt, damit er seine Energie auf die Beurteilung der Qualität der Komposition konzentrieren kann.

Wenn Sie manuell herausfinden möchten, wie viele Vorkommen eines bestimmten Wortes oder einer bestimmten Phrase vorhanden sind, können Sie die Suchfunktion von Word verwenden:

  1. Drücken Sie Strg + F. Word zeigt die Registerkarte Suchen des Dialogfelds Suchen und Ersetzen an.

  2. Geben Sie im Feld Suchen nach das Wort oder die Phrase ein, die Sie suchen möchten.

  3. Klicken Sie auf die Schaltfläche Mehr, falls verfügbar.

  4. Wenn Sie nach einem einzelnen Wort suchen, aktivieren Sie das Kontrollkästchen Nur ganze Wörter suchen.

  5. Aktivieren Sie das Kontrollkästchen Alle gefundenen Elemente markieren.

  6. Klicken Sie auf Alle finden.

Word zeigt Ihnen im Dialogfeld an, wie viele Vorkommen es in Ihrem Wort oder Ihrer Phrase gefunden hat. Diese Technik ist zwar praktisch, verliert aber etwas an Charme, wenn Sie sie für zwanzig Wörter und Sätze in fünfunddreißig verschiedenen Schülerkompositionen wiederholen müssen. In der Tat ist ein Makro ein praktischerer Ansatz.

Es wäre sehr praktisch, wenn die Anzahl der im Dialogfeld Suchen und Ersetzen angezeigten Vorkommen über VBA zugänglich wäre. Soweit ich feststellen konnte, ist dieser Wert nicht zugänglich. Das bedeutet, dass Sie sich auf das wiederholte Suchen und Zählen im Makro selbst verlassen müssen. Ein gutes Beispiel dafür finden Sie in der Microsoft Knowledge Base:

http://support.microsoft.com/kb/240157

Der Code auf dieser Seite kann relativ einfach geändert werden, um nach einer Reihe von Wörtern oder Phrasen zu suchen und alle Ergebnisse gleichzeitig anzuzeigen.

Ein anderer ziemlich einzigartiger Ansatz besteht darin, die Annahmen über die Kompositionen der Schüler umzukehren: Nehmen Sie an, dass sie jedes der Wörter oder Phrasen verwenden (sie beginnen mit einer Punktzahl von 20, wenn es zwanzig Wörter und Phrasen gibt)

und subtrahieren Sie Punkte nur, wenn sie keinen von ihnen verwenden.

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

Das Makro zeigt eine Punktzahl für die Komposition an und zeigt auch alle Wörter oder Phrasen an, die in der Komposition nicht verwendet wurden.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (333) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Nach Wörtern und Phrasen suchen.