Selection.SelectCurrentSpacing (Word)

Estende a seleção para frente até que um parágrafo com um espaçamento entre linhas diferente seja encontrado.

With Selection 
 .SelectCurrentSpacing 
 .ParagraphFormat.Space1 
End With