How to replace strings only wihin the paragraph not in all the pages of my document

Dim MyText As String
   Selection.Font.Name = "Garamond"
 Selection.Font.Size = 12
 Selection.Font.ColorIndex = wdBlack
  MyText = "You don't have to meet deductibles for specific services, but see the chart starting on page 2 for other costs for services this plan covers."
  Selection.TypeText (MyText)
        With ActiveDocument.Content.Find
        .ClearFormatting
        .Font.Bold = False
        With .Replacement
        .ClearFormatting
        .Font.Bold = True
        .Font.Underline = wdUnderlineSingle
        End With
        .Execute FindText:="excluded services", ReplaceWith:="", _
        Format:=True, Replace:=wdReplaceAll
End With