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