Paul tiene un documento que necesita cotejar con una lista de palabras contenida en otro documento. Si el documento que se está comprobando contiene una de las palabras de la lista, entonces la palabra en el documento (no en la lista de palabras)

debe resaltarse en negrita. La lista de palabras es grande, del orden de 20.000 palabras, y Paul se pregunta cuál es la mejor manera de hacerlo.

Hay dos formas de proceder. La primera es escribir su propia macro que hará las comparaciones por usted. Si pones las palabras que quieres registrar en un documento llamado «checklist.doc» en la unidad C :, entonces se puede usar la siguiente macro:

Sub CompareWordList()

Dim sCheckDoc As String     Dim docRef As Document     Dim docCurrent As Document     Dim wrdRef As Object

sCheckDoc = "c:\checklist.doc"

Set docCurrent = Selection.Document     Set docRef = Documents.Open(sCheckDoc)

docCurrent.Activate

With Selection.Find         .ClearFormatting         .Replacement.ClearFormatting         .Replacement.Font.Bold = True         .Replacement.Text = "^&"

.Forward = True         .Format = True         .MatchWholeWord = True         .MatchCase = True         .MatchWildcards = False     End With

For Each wrdRef In docRef.Words         If Asc(Left(wrdRef, 1)) > 32 Then             With Selection.Find                 .Wrap = wdFindContinue                 .Text = wrdRef                 .Execute Replace:=wdReplaceAll             End With         End If     Next wrdRef

docRef.Close     docCurrent.Activate End Sub

Todo lo que necesita hacer es abrir el documento que desea verificar y luego ejecutar la macro. Si el documento que contiene las palabras para verificar tiene un nombre diferente o en una ubicación diferente, simplemente cambie la línea que establece sCheckDoc para que tenga un nombre de ruta completo diferente para el documento.

Básicamente, la macro toma cada palabra de la lista de palabras y luego realiza una operación de Buscar y Reemplazar usando esa palabra en el documento. Si tiene muchas, muchas palabras en la lista de palabras, entonces la macro puede tardar bastante en ejecutarse; ¡20.000 operaciones de búsqueda y reemplazo son bastantes!

El otro enfoque que puede probar es utilizar una aplicación de terceros para que haga el trabajo por usted. Hay un buen artículo y una aplicación disponibles gratis en este sitio:

http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=160

Este enfoque es particularmente interesante porque no solo hace que las palabras coincidentes se pongan en negrita, sino que le permite establecerlas en el color que desee.

_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 (502) 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-Highlight_Words_from_a_Word_List [Resaltar palabras de una lista de palabras].