[vba] search and format finds

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

leaftye - 24 Jun 2005 19:28 GMT

I'm trying to create a procedure that searches for certain words and
then formats those words. Two problems:
1. If I have a word(s) highlighted when I start the macro, it formats
the selection...even though it hasn't found anything yet.
2. It finds the first word, but not the rest.

Please help me figure out what I'm doing wrong. Here's my code:

Code:
--------------------

With Selection
With .Find
.ClearFormatting
.Text = "access"
.MatchCase = False
.MatchWholeWord = True
.Execute
.ClearFormatting
End With
.FormattedText.Case = wdTitleWord
.Font.Underline = wdUnderlineSingle
End With

With Selection
With .Find
.ClearFormatting
.Text = "assignment"
.MatchCase = False
.MatchWholeWord = True
.Execute
.ClearFormatting
End With
.FormattedText.Case = wdTitleWord
.Font.Underline = wdUnderlineSingle
End With

--------------------

Signature

leaftye

Reply to this Message

Doug Robbins - 25 Jun 2005 06:52 GMT

Here's how to do it:

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="access", MatchWildcards:=False,
MatchCase:=False, _
MatchWholeWord:=True, Wrap:=wdFindStop, Forward:=True) = True
Selection.Range.Case = wdTitleWord
Loop
End With
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="assignment", MatchWildcards:=False,
MatchCase:=False, _
MatchWholeWord:=True, Wrap:=wdFindStop, Forward:=True) = True
Selection.Range.Case = wdTitleWord
Loop
End With

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

>
> I'm trying to create a procedure that searches for certain words and
[quoted text clipped - 35 lines]
>
> --------------------

Reply to this Message

Rate this thread: