David es un profesor que asigna a sus alumnos una serie de unas veinte palabras y frases que deben utilizar en una composición. Cada palabra o frase debe usarse al menos una vez. Los alumnos obtienen un punto por cada vez que utilizan una de las palabras o frases, aunque nada extra por duplicados. David busca una manera fácil de marcar su trabajo, tal vez con una macro que busque cada palabra y frase y cree algún tipo de registro de su uso. El deseo de Dave es que Word haga la búsqueda y el conteo para que pueda concentrar su energía en evaluar la calidad de la composición.

Si desea averiguar manualmente cuántas ocurrencias hay de una palabra o frase en particular, puede usar la función Buscar de Word:

  1. Presione Ctrl + F. Word muestra la pestaña Buscar del cuadro de diálogo Buscar y reemplazar.

  2. En el cuadro Buscar, ingrese la palabra o frase que desea buscar.

  3. Haga clic en el botón Más, si está disponible.

  4. Si está buscando una sola palabra, haga clic en la casilla de verificación Buscar solo palabras completas.

  5. Haga clic en la casilla de verificación Resaltar todos los elementos encontrados.

  6. Haga clic en Buscar todo.

Word le muestra, en el cuadro de diálogo, cuántas ocurrencias encontró de su palabra o frase. Esta técnica, aunque útil, pierde algo de su encanto si necesita repetirla durante veinte palabras y frases en treinta y cinco composiciones diferentes de los estudiantes. De hecho, una macro es un enfoque más práctico.

Sería muy conveniente si el número de ocurrencias que se muestran en el cuadro de diálogo Buscar y reemplazar fuera accesible a través de VBA. Por lo que he podido determinar, este valor no es accesible. Eso significa que debe confiar en la búsqueda y el conteo repetidos en la propia macro. Un buen ejemplo de cómo se puede hacer esto se encuentra en Microsoft Knowledge Base:

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

El código de esta página se puede cambiar, con relativa facilidad, para buscar una serie de palabras o frases y mostrar todos los resultados a la vez.

Otro enfoque bastante singular es invertir las suposiciones sobre las composiciones de los estudiantes: suponga que usan cada una de las palabras o frases (comienzan con una puntuación de 20 si hay veinte palabras y frases)

y solo resta puntos si no usa uno de ellos.

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 muestra una puntuación para la composición y también muestra las palabras o frases que no se utilizaron en la composición.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (333) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Checking_for_Words_and_Phrases [Buscando palabras y frases].