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. Führen Sie die folgenden Schritte aus, wenn Sie Word 2007 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. Sie können die gewünschten Zählungen noch schneller finden, wenn Sie Word 2010 oder Word 2013 verwenden:

  1. Drücken Sie Strg + F. Word zeigt den Aufgabenbereich Navigation auf der linken Seite des Bildschirms an. Im Bereich ist die Registerkarte Durchsuchen ausgewählt.

  2. Wenn Sie nach einem einzelnen Wort suchen, klicken Sie auf den Abwärtspfeil rechts neben der kleinen Lupentaste und wählen Sie Optionen. Wählen Sie im Dialogfeld Optionen die Option Nur ganze Wörter suchen.

  3. Geben Sie im Feld oben im Navigationsbereich das Wort oder die Phrase ein, nach der Sie suchen möchten, und drücken Sie die Eingabetaste.

Word zeigt Ihnen oben im Aufgabenbereich Navigation an, wie viele Vorkommen sich in Ihrem Wort oder Ihrer Phrase befinden.

Diese Techniken sind zwar praktisch, verlieren jedoch 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/?kbid=240157

Die Seite zeigt an, dass der Code für Word 2000 ist, funktioniert jedoch problemlos mit Word 2007 und Word 2010. 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 anzuzeigen auf einmal. 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 nur Punkte, wenn sie nicht verwenden einer von ihnen.

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 beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (9261) gilt für Microsoft Word 2007, 2010 und 2013.

Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier:

Nach Wörtern und Phrasen suchen.