How to Bold and underline only within the particular Paragraph I have code but its replacing all the pages in my document. Please help me out

See more:

macros

VBA

MS-Word

Dim MyText As String
MyText = "You can see the specialist you choose without permission from this plan."
Selection.TypeText (MyText)
With ActiveDocument.Content.Find
.ClearFormatting
.Font.Bold = False
With .Replacement
.ClearFormatting
.Font.Bold = True
.Font.Underline = wdUnderlineSingle
End Sub
End With
.Execute FindText:="specialist", ReplaceWith:="", _
Format:=True, Replace:=wdReplaceAll
End With
End Sub

Just i need to bold and underline only in the above paragraph Mytext.