Selection.SelectCurrentSpacing (Word)

Cette méthode étend la sélection au premier paragraphe ayant un interligne différent. 


With Selection 
 .SelectCurrentSpacing 
 .ParagraphFormat.Space1 
End With