向前扩展所选内容，直至遇到具有另一种行间距的段落为止。
expression.SelectCurrentSpacing
expression 必需。该表达式返回一个 Selection 对象。
本示例选定所有行间距相同的连续段落，并将行间距改为单倍行距。
With Selection .SelectCurrentSpacing .ParagraphFormat.Space1 End With