You could just tweak Graham's code a bit, then select the range you want to work with before running the macro:
Code:
Sub ShowPara()
Dim oPara As Paragraph, sText As String, oRng As Range
With Selection
For Each oPara In .Paragraphs
If oPara.Range.Bold = True Then
If Not oPara.Range.End = .Paragraphs.Last.Range.End Then
Set oRng = oPara.Range.Next.Paragraphs(1).Range
If oRng.Bold = False Then
sText = oRng.Text
oRng.Select
MsgBox sText
End If
End If
End If
Next oPara
End With
End Sub