Highlight keywords in the pasted text

macropod · #8 05-27-2020, 04:35 PM

Quote:

Originally Posted by alex100

Today I spend about half an hour searching Google for Word highlighters, and while I found quite many, almost no one had the ability to use RGB colors. Except for Greg's Highlighter, they all used the 'HighlightColorIndex' property.

Hardly surprising, since few need anything more than the available highlight options.

Quote:

Originally Posted by alex100

Like me, I think most people who use such highlighters need to assign a single color to an entire list of keywords. Basically, you want ten keywords to be highlighted in red, 15 keywords in blue, and so on.

With this in mind, I think the best approach would be to have multiple arrays, each one with a corresponding color.

Something like this:

arrWords1 = Array("keyword1", "keyword2")
arrWords2 = Array("keyword1", "keyword2", "keyword3")
arrWords3 = Array("keyword1", "keyword2", "keyword3", "keyword4", "keyword5", "keyword6")

Then, the RGB list should basically assign one color to each array:

arrWords1: RGB (10, 175, 150)
arrWords2: RGB (74, 18, 188)
arrWords3: RGB (150, 175, 190)

What do you think?

I really can't see any benefit in that. And, contrary to what you suppose, implementation would require substantially more code. As it is, the Select Case statement can already be expanded to cover as many shading options as you want and, with only a trivial coding change, could be made to loop through those options multiple times if you have more array entries than shading options. Furthermore, if you want to have:

Quote:

ten keywords to be highlighted in red, 15 keywords in blue, and so on

all that would entail is building the Select Case statement with either:
• 15 blue, 15 red, and so on, then padding out the arrWords array with empty elements for keyword groups that have less than 15 items; or
• only the required number of colour definitions to match what's in the arrWords array,
either of which could be used in conjunction with specifying a range of values for 'i' in the Select Case statement. For example:

Code:

  Select Case i
    Case 0 - 14: RGB = wdColorRed
    Case 15 - 29: RGB = wdColorOrange
    Case 30 - 44: RGB = wdColorYellow
    Case 44 - 59: RGB = wdColorGreen
    Case 60 - 74: RGB = wdColorBlue
  End Select

Note: There's no need for the 'i' values to span equal size ranges in the Select Case statement; they're only used that way here to show how they might work in conjunction with the first bullet point.

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