Extends the selection forward until a paragraph with different line spacing is encountered.
expression.SelectCurrentSpacing
expression Required. An expression that returns a Selection object.
Example
This example selects all consecutive paragraphs that have the same line spacing and changes the line spacing to single spacing.
With Selection
.SelectCurrentSpacing
.ParagraphFormat.Space1
End With