Highlight keywords in the pasted text

alex100 · #1 05-26-2020, 06:51 AM

The script below is supposed to highlight certain keywords in the text that was just pasted. The problem is that it's only highlighting the first keyword in the array, without any results for the rest of the keywords.

What could be the problem, please?

Alex

Code:

Dim pasted_content As Word.range
Dim r As Long
Dim Keywords
    
Keywords = Array("keyword1", "keyword2", "keyword3")

Set pasted_content = Selection.range
pasted_content.Paste

For r = 0 To UBound(Keywords)
    With pasted_content.Find
        .Text = Keywords(r)
        .Format = True
        Do While .Execute(Forward:=True) = True
            pasted_content.HighlightColorIndex = wdYellow
        Loop
    End With
Next

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
I am trying to delete text of any format between two bold, recurring keywords or symbols	qubie	Word VBA	8	03-04-2020 03:20 PM
how do I make pasted text the same size as the text it's being pasted into?	David Lee	Word	6	08-16-2015 10:46 AM
Help with finding multiple keywords in a single document then highlight	navyguy	Word	2	01-03-2014 12:48 PM
Trying to highlight pasted text in a macro	goldengate	Word VBA	0	09-14-2010 09:41 PM
find - reading highlight - highlight all / highlight doesn't stick when saved	bobk544	Word	3	04-15-2009 03:31 PM