David est un enseignant qui attribue à ses élèves une série d’une vingtaine de mots et de phrases qu’ils doivent utiliser dans une composition. Chaque mot ou expression doit être utilisé au moins une fois. Les élèves obtiennent un point pour chaque fois qu’ils utilisent l’un des mots ou des phrases, mais rien de plus pour les doublons. David cherche un moyen facile de marquer leur travail, peut-être avec une macro qui recherche chaque mot et chaque phrase et crée une sorte d’enregistrement de leur utilisation. Le désir de Dave est que Word fasse la recherche et le comptage afin qu’il puisse concentrer son énergie sur l’évaluation de la qualité de la composition.

Si vous souhaitez déterminer manuellement le nombre d’occurrences d’un mot ou d’une phrase en particulier, vous pouvez utiliser la fonction Rechercher de Word:

  1. Appuyez sur Ctrl + F. Word affiche l’onglet Rechercher de la boîte de dialogue Rechercher et remplacer.

  2. Dans la zone Rechercher, entrez le mot ou la phrase que vous souhaitez rechercher.

  3. Cliquez sur le bouton Plus, s’il est disponible.

  4. Si vous recherchez un seul mot, cochez la case Rechercher des mots entiers uniquement.

  5. Cliquez sur la case à cocher Mettre en surbrillance tous les éléments trouvés.

  6. Cliquez sur Rechercher tout.

Word vous montre, dans la boîte de dialogue, combien d’occurrences il a localisé de votre mot ou phrase. Cette technique, bien que pratique, perd un peu de son charme si vous devez la répéter pendant vingt mots et phrases dans trente-cinq compositions étudiantes différentes. En effet, une macro est une approche plus pratique.

Ce serait très pratique si le nombre d’occurrences affichées dans la boîte de dialogue Rechercher et remplacer était accessible via VBA. Autant que j’ai pu déterminer, cette valeur n’est pas accessible. Cela signifie que vous devez compter sur des recherches et des comptages répétés dans la macro elle-même. Un bon exemple de la façon dont cela peut être fait se trouve dans la base de connaissances Microsoft:

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

Le code de cette page peut être modifié, relativement facilement, pour rechercher une série de mots ou d’expressions et afficher tous les résultats à la fois.

Une autre approche assez unique consiste à inverser les hypothèses sur les compositions des élèves: supposons qu’ils utilisent chacun des mots ou des phrases (ils commencent par un score de 20 s’il y a vingt mots et phrases)

et ne soustrayez des points que s’ils n’en utilisent pas.

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

La macro affiche un score pour la composition et affiche également tous les mots ou phrases qui n’ont pas été utilisés dans la composition.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (333) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Checking_for_Words_and_Phrases [Vérification des mots et des phrases].