SelectCurrentSpacing Method 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