![]() |
|
#1
|
|||
|
|||
|
Hello all.
I'm trying to find a way to highlight word and sentences in a file from a list located in another file. I found a a macro online but the problem is that it will highligh all single words. What should I do if I want to highlight a list of strings composed of several words (Like phrasal verb or expression for exemple) For exemple, I want it to highlight all "Fill out" but leaving alone all "fill" and "out" that are not a part of "Fill out" Thank you the Macro I found on https://wordribbon.tips.net/ is: 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 Options.DefaultHighlightColorIndex = wdYellow With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Replacement.Highlight = 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 = Trim(wrdRef) .Execute Replace:=wdReplaceAll End With End If Next wrdRef docRef.Close docCurrent.Activate End Sub |
| Tags |
| highlight, vba, word 2016 |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Highlight words from a list
|
Nanaia | Word VBA | 3 | 09-07-2018 02:13 PM |
how to highlight all "indexed" sentences using find and replace?
|
smallxyz | Word | 2 | 02-06-2016 02:54 AM |
| Macro to highlight repeated words in word file and extract into excel file | aabri | Word VBA | 1 | 06-14-2015 07:20 AM |
| Error: The file may be corrupted, located on a server that is not responding, or read | naeemeh | Excel | 2 | 11-20-2011 03:38 AM |
| find - reading highlight - highlight all / highlight doesn't stick when saved | bobk544 | Word | 3 | 04-15-2009 03:31 PM |