Word VBA - Replace CAPS with Bold Title Case

ChangeCAPStoBold.bas

Sub ChangeCAPStoBold()
With Selection.Find
    .Text = "(<[A-Z.]{2,})"
    .Replacement.Text = "\1"
    .Replacement.Font.Bold = True
    .MatchWildcards = True
    .Wrap = wdFindContinue
    .Format = True
End With
While Selection.Find.Execute
   Selection.Range.Case = wdTitleWord
   Selection.Font.Bold = True
Wend
End Sub
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting