生活需要遇事有定力，临难有静气，指引人生向前的新境界和凝聚作用于人生向前的新动力，在生活中完成内心的肯定，下大功夫，好态度，结善缘。与其指望遇到一个谁，不如指望自己能吸引那样的人；与其指望每次失落的时候会有正能量出现温暖你，不如指望自己变成一个正能量的人；与其担心未来，还不如现在好好努力。有时即使有再多的安慰和指点也没用，能说服和鼓励自己的，还是只有自己。而我能做的，只是告诉你我们都一样，不要怕。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到WordVBA的妙处。本套教程共三册十六章，今日内容是第四章“段落集合Paragraphs对象及段落Paragraph对象”第4节：利用VBA设置文档中行间距的方法。
第四节段落集合Paragraphs对象的方法（二）
大家好，我们这讲继续段落集合Paragraphs对象方法的讲解，在上一讲中我们讲解了Add方法、Item方法、CloseUp方法、IndentCharWidth方法和IndentFirstLineCharWidth方法。这一讲我们继续向下讲解。
1Paragraphs.Space1方法
这个方法为指定段落设置单倍行距。
语法：expression.Space1
其中expression是必需的。一个代表"段落"集合的变量
示例：以下示例将活动文档所有段落的行距更改为单倍行距。
1）ActiveDocument.Paragraphs.Space1
2）ActiveDocument.Paragraphs.LineSpacingRule=wdLineSpaceSingle
第二句是利用了Paragraphs的LineSpacingRule属性，这种属性利用wdLineSpaceSingle,wdLineSpace1pt5,或者wdLineSpaceDouble来设置行间距。
如：ActiveDocument.Paragraphs.LineSpacingRule=wdLineSpaceDouble
为活动文档的所有段落设置2倍行距。
为了设置行间距，还可以利用Paragraphs.LineSpacing属性。这个属性返回或设置指定段落的行距(以磅为单位)。
语法：expression.LineSpacing
2Paragraphs.Space15方法
这个方法为指定段落设置1.5倍行距。
语法：expression.Space15
其中expression是必需的。一个代表"段落"集合的变量。
示例：以下示例将活动文档所有段落的行距更改为1.5倍行距。
1）ActiveDocument.Paragraphs.Space15
2）ActiveDocument.Paragraphs.LineSpacingRule=wdLineSpace1pt5
3Paragraphs.Space2方法
这个方法为指定段落设置2倍行距。
语法：expression.Space2
其中expression是必需的。一个代表"段落"集合的变量。
示例：以下示例将所有选定段落的行距更改为两倍行距。
1）ActiveDocument.Paragraphs.Space2
2）ActiveDocument.Paragraphs.LineSpacingRule=wdLineSpaceDouble
4实例：行间距设置
下面我们看下面的一段代码实例，这个实例将设置当前文档的行间距：
SubmynzC()
将活动文档所有段落的行距更改为单倍行距。
ActiveDocument.Paragraphs.Space1
将活动文档第2段的行距更改为1.5倍行距。
ActiveDocument.Paragraphs(2).Space15
将活动文档第4段的行距更改为2倍行距
ActiveDocument.Paragraphs(4).LineSpacingRule=wdLineSpaceDouble
将活动文档第6段的行距更改为4倍行距
ActiveDocument.Paragraphs(6).LineSpacing=LinesToPoints(4)
EndSub
代码截图：
代码解读：（略）
下面我们测试一下代码的运行,代码运行前:
然后我们点击运行，下面为代码运行后的截图：
我们要注意下面的截图中有1倍行间距，1.5倍行间距，2倍行间距，4倍行间距,这些行间距的设置我们在实际的工作中可以有选择地加以利用：
今日内容回向：
1段落集合对象的Space1方法、Space15方法、Space2方法的意义是什么？
2如何利用上述方法设置文档个段落的行间距？
本讲内容参考程序文件：Doc文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：