使用下面的代码，可以通过VBA来设置Word段落的行间距。
'设置第二段为单倍行距
With ActiveDocument.Paragraphs(2)
.LineSpacingRule = wdLineSpaceSingle
End With
知识拓展：
'1.5倍行距
.LineSpacingRule = wdLineSpace1pt5
'多倍行距，如3行
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(3)
'2倍行距
.LineSpacingRule = wdLineSpaceDouble
'最小值行距 20磅
.LineSpacingRule = wdLineSpaceAtLeast
.LineSpacing = 20
'固定值行距，30磅
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 30