How do I insert a blank line before bold text in a selection?

[snb]

Using VBA's Object based language:

Sub M_snb()
   For j = 1 To Selection.Paragraphs.Count
      If Selection.Paragraphs(j).Range.Characters.Last.Bold Then Selection.Paragraphs(j).Range.InsertAfter vbCr
   Next
End Sub