Request for macro to highlight selected text

[sandeep6699]

Greetings,

I am requesting help with a simple VBA macro that prompts the user for some text and then highlights all occurrences of that text in the document. It would be nice if the pattern accepts wildcards as well.

Thanks in advance.

Regards,
Sandeep

 

[Auric__]

I am requesting help with a simple VBA macro that prompts the user for
some text and then highlights all occurrences of that text in the
document. It would be nice if the pattern accepts wildcards as well.

I'm assuming you want this done in Word.

Sub FingAndHilite()
usertext = InputBox("Enter text to find")
If Len(usertext) < 1 Then Exit Sub
With Selection.Find
.ClearFormatting
.Text = usertext
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Do
With Selection.Find
.Execute
If Not .Found Then Exit Do
End With
Selection.Range.HighlightColorIndex = wdYellow
Loop
End Sub

Note that this is not a highlight like selecting text, but is a change made
to the document itself. This might annoy some users.

 

[Auric__]

Sub FingAndHilite()

Boy, it's amazing the things that just leap out at you *after* clicking the
"send" button.

 

[Auric__]

I'm assuming you want this done in Word.

Sub FingAndHilite()
usertext = InputBox("Enter text to find")
If Len(usertext) < 1 Then Exit Sub

Forgot to mention, this starts from the cursor's current position. To start
from the beginning of the document, add this after the above lines:

Selection.HomeKey Unit:=wdStory

 

[sandeep6699]

Forgot to mention, this starts from the cursor's current position. To start

from the beginning of the document, add this after the above lines:



Selection.HomeKey Unit:=wdStory

Excellent stuff ---- works like a charm. God Bless!