objRange.HighlightColorIndex = wdNoHighlight\nobjRange.Font.ColorIndex = wdBlue\n<\/PRE>\nWith the first line, we remove the highlight for the found text; with the second, we change the font color of that text to blue. To tell you the truth, this was a bit jammy, but it ended up working just fine.<\/P>\n
And to think that some of you have said that the Scripting Guys are gormless!<\/P>\n
Oh: and if text is highlighted but the color is something other than turquoise then we simply leave well enough alone. Quite.<\/P>\n
Of course, this only gets us as far as the first highlighted item in the text. To search for any subsequent items that meet our criteria we need to use these two lines of code:<\/P>
intPosition = objRange.End\nobjRange.Start = intPosition\n<\/PRE>\nWhy? Well, until we call these two lines of code our range will consist solely of the text that we just found. That\u2019s not what we want: after all, if we call the Execute method again we\u2019ll end up searching just that little block of text. And because that text is no longer highlighted, the search – and our script – will simply end. <\/P>\n
To avoid that, we assign the value of the End<\/B> property (the last character in the range) to a variable named intPosition; we then set the Start<\/B> property of the range to intPosition. <\/P>\n
So why do we do that<\/I>? Well, suppose we found a highlight that covers characters 5 through 10; that means our range also covers characters 5 through 10. If we set intPosition to 10 (the last character in the range), and then assign that value to the range\u2019s Start property, that moves the beginning of our range to character position 10. And because we didn\u2019t specify an End value, the range will automatically encompass the remainder of the document. In other words, now when we call Execute we\u2019ll start searching at the point where the first search left off, and we\u2019ll continue searching until either we find a new item or we reach the end of the document. <\/P>\n
Which is exactly what we want to happen.<\/P>\n
Feeling knackered? We don\u2019t blame you. But even if you don\u2019t fully understand how it works, it\u2019s still a good flutter, especially for a script this smashing.<\/P>\n
Come on: would the Scripting Guys tell you porkies?<\/P>\n
At any rate, Bob\u2019s your uncle, KB. Cheerio<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I find text in a Word document that has been highlighted in a particular color (say, turquoise), and then both remove the highlight and change the font color of that text to something else (say, blue)? I\u2019d be extremely chuffed if you can solve this one!— KB Hey, KB! Blimey! […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[84,49,3,5,395],"class_list":["post-66903","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-microsoft-word","tag-office","tag-scripting-guy","tag-vbscript","tag-word-application"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I find text in a Word document that has been highlighted in a particular color (say, turquoise), and then both remove the highlight and change the font color of that text to something else (say, blue)? I\u2019d be extremely chuffed if you can solve this one!— KB Hey, KB! Blimey! […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/66903","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=66903"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/66903\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=66903"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=66903"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=66903"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n