Selection.SelectCurrentSpacing (Word)

Erweitert die Markierung nach vorn, bis ein Absatz mit einem anderen Zeilenabstand auftritt. 


With Selection 
 .SelectCurrentSpacing 
 .ParagraphFormat.Space1 
End With