If you are using Selection.Range you have one range, not two. A Range has a collection of paragraphs, as you would see by using the Object Browser, so you simply need to loop through them. For example:
Code:
Dim rng As Range: Set rng = Selection.Range
Dim para As Paragraph
For Each para In rng.Paragraphs
'do something
Next para