Paul ha un documento che deve confrontare con un elenco di parole contenuto in un altro documento. Se il documento da controllare contiene una delle parole nella lista, allora la parola nel documento (non nella lista delle parole)

deve essere evidenziato essendo reso in grassetto. L’elenco delle parole è ampio, dell’ordine di 20.000 parole, e Paolo si chiede quale sia il modo migliore per farlo.

Ci sono due modi per procedere. Il primo è scrivere la tua macro che farà i confronti per te. Se metti le parole che vuoi controllare in un documento chiamato “checklist.doc” nell’unità C:, allora può essere usata la seguente 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

Tutto quello che devi fare è avere il documento aperto che desideri controllare, quindi eseguire la macro. Se il documento contenente le parole da controllare è denominato in modo diverso o in una posizione diversa, è sufficiente modificare la riga che imposta sCheckDoc in modo che abbia un percorso completo diverso per il documento.

Fondamentalmente, la macro cattura ogni parola dall’elenco di parole e quindi esegue un’operazione Trova e sostituisci utilizzando quella parola nel documento. Se sono presenti molte, molte parole nell’elenco di parole, l’esecuzione della macro può richiedere un po ‘di tempo: 20.000 operazioni di ricerca e sostituzione sono poche!

_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 (1173) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui:

Evidenzia parole da un elenco di parole.