[vba] search and format finds

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:

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

I figured it out. Here's what my final code looks like:

Sub UnderlineWords()
' Underline all the words in this array

Dim WordsToUnderline(10) As String
WordsToUnderline(0) = "access"
WordsToUnderline(1) = "assignment"

For i = 0 To UBound(WordsToUnderline)
  With Selection.Find
    .ClearFormatting
    With .Replacement
      .ClearFormatting
      .Font.Underline = wdUnderlineSingle
      .Text = WordsToUnderline(i)
    End With
    .Text = WordsToUnderline(i)
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .Execute Replace:=wdReplaceAll
  End With
Next


End Sub

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


--
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
"leaftye" wrote in message
...

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

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


--
leaftye