Multiple keyword search in WORD

tvincent8118 · #1 06-22-2015, 09:45 AM

Hello, I am trying to create a Macro in WORD 2010 to be able to search documents for multiple keywords at once and highlight them, but some of the keywords are medical abbreviations so I don't want it to highlight when those letters are part of another word. I am new to the use of Macros. In my search to try to find out how to do this, I learned about Visual Basic for Applications (or better said, saw it). I copied the following and it worked but I have two issues:

1. The aforementioned highlighting of instances where letters are part of a WORD and...
2. I need to know how to create this is such a way that it is available on all documents and I can add a button to the Toolbar that will run it on any document I so choose.
Here's what I did in VBA

Code:

Sub TBI1()
Dim range As range
Dim I As Long
Target List = Array(“TBI”, “Brain”, “face”, “facial”, “CT”, “MRI”, “traumatic”, “subdural”, “cranial”, “cranium”, “deficit”, “GCS”, “LOC”, “consciousness”, “head”, “memory”, “concussion”, “executive”)
For I = 0 To UBound(TargetList)
  Set range = ActiveDocument.range
  With range.Find
    .Text = TargetList(I)
    .Format = True
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    Do While .Execute(Forward:=True) = True
      range.HighlightColorIndex = wdYellow
    Loop
  End With
Next
End Sub

Any help would be greatly appreciated. Thanks

macropod · #2 06-23-2015, 04:45 AM

You can avoid partial-word matches by changing:
.MatchWholeWord = False
to:
.MatchWholeWord = True

To make the macro available to all documents, you could add it to Word's Normal template.

Word 2007 & later don't have toolbars, though you could add a button to, say, the Add-ins tab on the Ribbon. For advice on that, see: http://gregmaxey.com/word_tip_pages/...bbon_main.html
You might find it easier and just as useful to simply assign a keyboard shortcut to the macro. See: http://word.mvps.org/faqs/customizat...roToHotkey.htm

PS: When posting code, please use the code tags, which you can insert via the # button on the posting menu.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
search on multiple word documents	Guy Roth	Word	7	03-06-2017 01:31 PM
VBA find keyword and move to location then add symbol	Jmanville	Word VBA	3	10-22-2014 01:45 AM
Search Multiple strings and create new word file	subodhgupta	Word	4	05-22-2014 03:34 AM
Search Multiple strings and create new word sheet	subodhgupta	Word Tables	1	05-20-2014 08:09 AM
Multiple words, one search	return2300	Word VBA	0	08-30-2013 12:26 PM