Selection.SelectCurrentSpacing (Word)

Extiende la selección hacia delante hasta que encuentra un párrafo con interlineado distinto.

With Selection 
 .SelectCurrentSpacing 
 .ParagraphFormat.Space1 
End With