Sub LineSpacing6pt()
Dim opara As Paragraph
Dim i As Long
    For i = 1 To Selection.Range.Paragraphs.Count
        Set opara = Selection.Range.Paragraphs(i)
        opara.Range.Style.NoSpaceBetweenParagraphsOfSameStyle = False
        opara.Range.ParagraphFormat.SpaceAfter = 6
    Next i
lbl_Exit:
    Exit Sub
End Sub