Any one of these works here;

Public Sub SrcAndRplInStory(ByVal rngStory As Word.Range)
With rngStory.Find
  .Font.Underline = True
  '.Font.Italic = True
  '.Font.Bold = True
  While .Execute
    rngStory.HighlightColorIndex = wdGreen
    DoEvents
  Wend
End With
End Sub