VBA之Word应用第四章第四节:段落集合Paragraphs对象的方法（二）

《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。

这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。

本套教程共三册十六章，今日内容为：VBA之Word应用第四章第四节:段落集合Paragraphs对象的方法（二）

【分享成果，随喜正能量】331 品茶悟道知沉浮，踏青赏花美芳心。参禅礼佛静身心，消烦去躁做闲人。给别人留点空间，也是给自己留有余地。“利不可赚尽，福不可享尽，势不可用尽”，这个世界不是哪一个人的世界，而是所有人的世界，所以凡事都要留有余地。

第四章 段落集合Paragraphs对象及段落Paragraph对象

大家好，我们这章的内容是段落集合Paragraphs对象及段落Paragraph对象。在Word的相关知识点中,段落是一块重要的内容,段落是组成文档的一部分。

什么是段落呢？段落就是包含一个段落标记以及所有位于此段落标记和前一个段落标记之间的文本（不包括前一个段落标记）。段落标记包含该段落的所有格式信息。当复制单词、句子和段落时，如果包含段落标记，则所有包含在段落标记中的格式信息也被复制，并在它们被粘贴到其它位置时应用于所属段落。

本章的内容的讲解仍是从对象的属性、方法来逐渐深入地讲解。

第四节 段落集合Paragraphs对象的方法（二）

大家好，我们这讲继续段落集合Paragraphs对象方法的讲解，在上一讲中我们讲解了Add方法、Item方法、CloseUp方法、IndentCharWidth方法和IndentFirstLineCharWidth方法。这一讲我们继续向下讲解。

1 Paragraphs.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

2 Paragraphs.Space15 方法

这个方法为指定段落设置 1.5 倍行距。

语法：expression.Space15

其中expression 是必需的。一个代表 "段落" 集合的变量。

示例：以下示例将活动文档所有段落的行距更改为 1.5 倍行距。

1）ActiveDocument.Paragraphs.Space15

2）ActiveDocument.Paragraphs.LineSpacingRule = wdLineSpace1pt5

3 Paragraphs.Space2 方法

这个方法为指定段落设置 2 倍行距。

语法：expression.Space2

其中expression 是必需的。一个代表 "段落" 集合的变量。

示例：以下示例将所有选定段落的行距更改为两倍行距。

1）ActiveDocument.Paragraphs.Space2

2）ActiveDocument.Paragraphs.LineSpacingRule = wdLineSpaceDouble

4 实例：行间距设置

下面我们看下面的一段代码实例，这个实例将设置当前文档的行间距：

Sub mynzC()

'将活动文档所有段落的行距更改为单倍行距。

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)

End Sub

代码截图：

代码解读：（略）

下面我们测试一下代码的运行,代码运行前:

然后我们点击运行，下面为代码运行后的截图：

我们要注意下面的截图中有1倍行间距，1.5倍行间距，2倍行间距，4倍行间距,这些行间距的设置我们在实际的工作中可以有选择地加以利用：

今日内容回向：

1 段落集合对象的Space1方法、Space15方法、Space2方法的意义是什么？

2 如何利用上述方法设置文档各段落的行间距？

我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：