Sub BulletsToPara()
  Selection.Style = ActiveDocument.Styles("N-BodyText,n-bd")
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^t(*)^13"
    .Replacement.Text = " (\1)^13"
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll

    .Text = "^13"
    .Replacement.Text = ". "
    .MatchWildcards = False
    .Execute Replace:=wdReplaceAll
    
    .Text = "(..)"    'not seeing the use of this one???
    .Replacement.Text = "."
    .Execute Replace:=wdReplaceAll
    
    .Text = ". . "
    .Replacement.Text = ". "
    .Execute Replace:=wdReplaceAll
  End With
End Sub