Sub Highlight_adverb() 
     '
     ' Highlight_adverb Macro
     ' Finds and highlights words that end in ly.
     '
     ' Go to the beginning of the piece being checked
     '
    Selection.HomeKey Unit:=wdStory 
     '
     ' Clear any previous search targets
     '
    Selection.Find.ClearFormatting 
     '
     ' Create Do loop that runs until the end of the document is reached
     '
     ' Do
     '
     ' Find example of word ending in "ly ", select the whole word, and highlight it
     '
    With Selection.Find 
        .Text = "ly" 
        .Forward = True 
        .Wrap = wdFindStop 
        .MatchSuffix = True 
    End With 
    Selection.Find.Execute 
    Selection.MoveLeft Unit:=wdWord, Count:=1 
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend 
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
    Options.DefaultHighlightColorIndex = wdTurquoise 
    Selection.Range.HighlightColorIndex = wdTurquoise 
     '
     ' Move forward one word to avoid reselecting the word just highlighted
     '
    Selection.MoveRight Unit:=wdWord, Count:=1 
     ' Selection.Find.Execute Replace:=wdReplaceAll
     '
     ' ...and loop
     '
     ' Loop While Selection.EndOf(Unit:=wdStory)
End Sub

Sub highlight_ly_2() 
     '
     ' highlight_ly_2 Macro
     '
     ' Go to the beginning of the piece being checked
     '
    Selection.HomeKey Unit:=wdStory 
     '
     ' Find and highlight all ly suffixes
     '
    With Selection.Find 
        .ClearFormatting 
        .Replacement.ClearFormatting 
        .Replacement.Highlight = True 
        .Text = "ly" 
        .Replacement.Text = "ly" 
        .Forward = True 
        .Wrap = wdFindContinue 
        .Format = True 
        .MatchSuffix = True 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll      
End Sub