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

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

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

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

【分享成果，随喜正能量】286 你发现没，喜欢独来独往的人，其实大部分都是品行非常好的人。这些人从来不扎堆，也不搬弄是非，只喜欢一个人。把自己应该干的事干好，享受自己干干净净的精神世界，和干干净净的生活圈子。有点时间就宅在家里，点个外卖，或是给自己做顿饭，放首自己喜欢的音乐，看一场久违的电影，读读书，养养花，写写字，然后安静睡一个觉，冷眼旁观这个世界。这种人值得深交。

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

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

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

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

第三节 段落集合Paragraphs对象的方法（一）

大家好，我们继续段落集合Paragraphs对象的讲解，这节的内容是这个对象的方法。我们知道，方法是对象自身的动作，那么这个段落集合Paragraphs对象又有哪些自身的动作呢？

1 Paragraphs.Add 方法

这个方法返回一个段落对象, 该对象代表添加到文档中的新的空白段落。

语法：expression.Add (Range)

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

参数：

Range 可选 Variant 要在其前添加新段落的区域。新的段落不替换该区域。

• 如果不指定 Range，则将新段落添加到选定内容或区域之后，或者添加到文档最后，具体情况取决于 expression 的设置。

示例：

1）在选定内容之后添加一个段落：Selection.Paragraphs.Add

2）在选定内容中第一段之前添加一个段落标记：Selection.Paragraphs.Add Range:=Selection.Paragraphs(1).Range

3）在活动文档第二段之前添加一个段落标记：ActiveDocument.Paragraphs.Add _

Range:=ActiveDocument.Paragraphs(2).Range

4）在活动文档的末尾添加一个新的段落标记：ActiveDocument.Paragraphs.Add

2 Paragraphs.Item 方法

这个方法返回集合中的单个段落对象。

语法：expression.Item (Index)

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

参数：

Index 必需 Long 要返回的单个对象。 可以是Long , 表示单个对象的序号位置。

3 Paragraphs.CloseUp 方法

这个方法清除指定段落前的段落间距。

语法：expression. CloseUp

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

示例：以下两行代码都可以当前活动文档的的段落间距

1) ActiveDocument.Paragraphs.CloseUp

2) ActiveDocument.Paragraphs.SpaceBefore = 0

3 Paragraphs.IndentCharWidth 方法

这个方法将一个或多个段落缩进指定的字符数。

语法：expression. IndentCharWidth( Count )

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

参数：

Count 必需 Integer 指定段落要缩进的字符数。

• 此方法等效于单击 “格式” 工具栏上的 “增加缩进量” 按钮。

4 Paragraphs.IndentFirstLineCharWidth 方法

这个方法将一个或多个段落的首行缩进指定的字符数

语法：expression.IndentFirstLineCharWidth(Count)

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

参数：

Count 必需 Integer 每个指定段落的首行要缩进的字符数。

5 段落集合方法的应用实例

下面我们来看一个实例，这个实例中我们将利用各种方法调试段落的缩进方式、段落间距。我们先看下面的代码：

Sub mynzB()

'在活动文档第一段之前添加一个段落标记。

ActiveDocument.Paragraphs.Add _

Range:=ActiveDocument.Paragraphs(1).Range

'将活动文档中所有段落的段前间距设置为 12 磅

ActiveDocument.Paragraphs.SpaceBefore = 12

'删除段前间距的设置

If MsgBox("您是否要清除段间距的设置？", vbYesNo) = vbYes Then

ActiveDocument.Paragraphs.CloseUp

End If

'将活动文档中所有段落的首行缩进 2 个字符

ActiveDocument.Paragraphs.IndentFirstLineCharWidth 2

'将活动文档的所有段落缩进 2 个字符

ActiveDocument.Paragraphs.IndentCharWidth 1

End Sub

代码截图：

代码解读：（略）

代码的运行，我们仍是先看文档的最初截图：

代码运行后：

今日内容回向：

1 段落集合对象的Add方法、Item方法、CloseUp方法、IndentCharWidth方法和IndentFirstLineCharWidth方法的意义是什么？

2 如何利用上述方法设置文档？

本讲内容参考程序文件：Doc 004文档.docm

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