David è un insegnante che assegna ai suoi studenti una serie di circa venti parole e frasi che devono usare in una composizione. Ogni parola o frase deve essere utilizzata almeno una volta. Gli studenti ottengono un punto per ogni volta che usano una delle parole o frasi, anche se niente in più per i duplicati. David sta cercando un modo semplice per contrassegnare il loro lavoro, magari con una macro che cerca ogni parola e frase e crea una sorta di registrazione del loro utilizzo. Il desiderio di Dave è che Word faccia la ricerca e il conteggio in modo che possa concentrare la sua energia sulla valutazione della qualità della composizione.

Se vuoi capire manualmente quante occorrenze ci sono di una particolare parola o frase, puoi usare la funzione Trova di Word:

  1. Premi Ctrl + F. Word visualizza la scheda Trova della finestra di dialogo Trova e sostituisci.

  2. Nella casella Trova, inserisci la parola o la frase che desideri trovare.

  3. Fare clic sul pulsante Altro, se disponibile.

  4. Se stai cercando una singola parola, fai clic sulla casella di controllo Trova solo parole intere.

  5. Fare clic sulla casella di controllo Evidenzia tutti gli elementi trovati.

  6. Fare clic su Trova tutto.

Word ti mostra, nella finestra di dialogo, quante occorrenze ha individuato della tua parola o frase. Questa tecnica, sebbene pratica, perde un po ‘del suo fascino se è necessario ripeterla per venti parole e frasi in trentacinque diverse composizioni studentesche. In effetti, una macro è un approccio più pratico.

Sarebbe molto conveniente se il numero di occorrenze visualizzate nella finestra di dialogo Trova e sostituisci fosse accessibile tramite VBA. Per quanto ho potuto determinare, questo valore non è accessibile. Ciò significa che devi fare affidamento sulla ricerca e sul conteggio ripetuti nella macro stessa. Un buon esempio di come questo può essere fatto si trova nella Microsoft Knowledge Base:

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

Il codice in questa pagina potrebbe essere modificato, in modo relativamente semplice, per cercare una serie di parole o frasi e visualizzare tutti i risultati contemporaneamente.

Un altro approccio piuttosto singolare è quello di invertire le ipotesi sulle composizioni degli studenti: supponi che utilizzino ciascuna delle parole o frasi (iniziano con un punteggio di 20 se ci sono venti parole e frasi)

e sottrarre punti solo se non ne usano uno.

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 mostra un punteggio per la composizione e mostra anche le parole o le frasi che non sono state utilizzate nella composizione.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (333) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Controllo di parole e frasi.