Selection.SelectCurrentSpacing (Word)

Extends the selection forward until a paragraph with different line spacing is encountered.


With Selection 
 .SelectCurrentSpacing 
 .ParagraphFormat.Space1 
End With