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 deseas 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!

_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 (1173) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de este consejo para interfaz de menú anterior de Word aquí:

link: / word-Highlight_Words_from_a_Word_List [Resaltar palabras de una lista de palabras].