Want to be a web developer? You'll need to know HTML. Prepare for HTML5 certification by enrolling in July's Course of the Month! It's free for Premium Members, Team Accounts, and Qualified Experts.
Course Of The Month
8 days, 9 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
MS Word Macro to Highlight Text
Posted on 2009-05-12
Hi,
I need to write a macro or other code to achieve the following goal when a document is opened.
1) Display the word document
2) Highlight any words in the document which are in the clipboard.
The request sound simple enough but thus far I am stumped as how to approach this.
Here is a samle of the clipboard contents:
Index of INC_DOCS - telephone and perry
P:\PUBLIC\INC_DOCS\86804.d
P:\PUBLIC\INC_DOCS\36905.d
P:\PUBLIC\INC_DOCS\97053.d
P:\PUBLIC\INC_DOCS\86083.d
P:\PUBLIC\INC_DOCS\53412.d
P:\PUBLIC\INC_DOCS\62894.d
P:\PUBLIC\INC_DOCS\93763.d
P:\PUBLIC\INC_DOCS\46199.d
P:\PUBLIC\INC_DOCS\80905.d
P:\PUBLIC\INC_DOCS\90660.d
P:\PUBLIC\INC_DOCS\97363.d
P:\PUBLIC\INC_DOCS\85723.d
P:\PUBLIC\INC_DOCS\96224.d
P:\PUBLIC\INC_DOCS\85723.r
P:\PUBLIC\INC_DOCS\86177.d
P:\PUBLIC\INC_DOCS\76956.d
P:\PUBLIC\INC_DOCS\83505.d
P:\PUBLIC\INC_DOCS\91948.d
P:\PUBLIC\INC_DOCS\94205.d
P:\PUBLIC\INC_DOCS\96517.d
I need to write a macro or other code to achieve the following goal when a document is opened.
1) Display the word document
2) Highlight any words in the document which are in the clipboard.
The request sound simple enough but thus far I am stumped as how to approach this.
Here is a samle of the clipboard contents:
Index of INC_DOCS - telephone and perry
P:\PUBLIC\INC_DOCS\86804.d
P:\PUBLIC\INC_DOCS\36905.d
P:\PUBLIC\INC_DOCS\97053.d
P:\PUBLIC\INC_DOCS\86083.d
P:\PUBLIC\INC_DOCS\53412.d
P:\PUBLIC\INC_DOCS\62894.d
P:\PUBLIC\INC_DOCS\93763.d
P:\PUBLIC\INC_DOCS\46199.d
P:\PUBLIC\INC_DOCS\80905.d
P:\PUBLIC\INC_DOCS\90660.d
P:\PUBLIC\INC_DOCS\97363.d
P:\PUBLIC\INC_DOCS\85723.d
P:\PUBLIC\INC_DOCS\96224.d
P:\PUBLIC\INC_DOCS\85723.r
P:\PUBLIC\INC_DOCS\86177.d
P:\PUBLIC\INC_DOCS\76956.d
P:\PUBLIC\INC_DOCS\83505.d
P:\PUBLIC\INC_DOCS\91948.d
P:\PUBLIC\INC_DOCS\94205.d
P:\PUBLIC\INC_DOCS\96517.d
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3-
2
6 Comments
Active today
The approach that I would take is to open a new document, and paste the clipboard contents therein.
Then I would take each line and do a Find and Replace in the original document, the Replace to apply a highlighting colour to anything found.
Then I would take each line and do a Find and Replace in the original document, the Replace to apply a highlighting colour to anything found.
That sound logical but raises another question. In my example "Index of INC_DOCS - telephone and perry "
If I run a find and replace the whole string will not be in the document. Rather, the words telephone, perry will be in the document.
How can I tell the find / replace to search for any of the words not the whole string?
If I run a find and replace the whole string will not be in the document. Rather, the words telephone, perry will be in the document.
How can I tell the find / replace to search for any of the words not the whole string?
Active today
I'm not quite sure that I understand the problem, but you if you want to find one or another of two words, you can do two successive searches.
True, I could run two searches however, in my example I had two words in a boolean search setup. It could also be additional words. I think that I need to find a way to export these terms into some sort of array to search on.
Active today
If the order of the words is important you could try using wildcards to check and then
do a highlight find and replace on each word:
Find: telephone*perry
Otherwise you would have to check each word and only highlight the words if all were found.
do a highlight find and replace on each word:
Find: telephone*perry
Otherwise you would have to check each word and only highlight the words if all were found.
Sub CallMultiFind()
Dim SomeWords(1) As Variant
SomeWords(0) = "telephone"
SomeWords(1) = "perry"
MultiFind ActiveDocument, SomeWords
End Sub
Sub MultiFind(Doc As Document, TheWords())
Dim i As Integer
For i = 0 To UBound(TheWords)
If Not Doc.Range.Find.Execute(TheWords(i)) Then
Exit Sub
End If
Next i
For i = 0 To UBound(TheWords)
With Doc.Range.Find
.Text = TheWords(i)
.Replacement.Highlight = True
.Execute Replace:=wdReplaceAll
End With
Next i
End Sub
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
If you work with Word a lot, you probably use styles. If you use styles a lot, you've probably balled your fist more often than not when working with the ribbon.
In Word 2007/2010, one of the things that I find missing when using styles is a quic…
Shortcuts in Word
Just the other day I had a training for Microsoft and they wanted me to show how well the new Windows and Office behaved on a touch device, which by the way is great, but it was only then that I realized that using keyboard shortc…
This Micro Tutorial well show you how to find and replace special characters in Microsoft Word. This is similar to carriage returns to convert columns of values from Microsoft Excel into comma separated lists.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
- Microsoft Office
- Office 365
- Outlook
- Office / Productivity
- Microsoft Word
- Microsoft PowerPoint, Microsoft Excel, *Office 2013, *office 2010, *Office 2016
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month8 days, 9 hours left to enroll
617 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.