How do I make the following macro replace in bold?

With Selection.Find
.Text = "plan"
.Replacement.Text = "ASSESSMENT AND PLAN:"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False


.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Your code is evidently created via the macro recorder. If you had specified bold for the replacement font when doing that, you'd have the code for specifying a bold replacement font. Better still would be to specify the 'Strong' Style for replacement.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab at the bottom of this screen.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]