VBA之Word应用第四章第一节：段落集合Paragraphs对象（一）

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

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

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

【分享成果，随喜正能量】226 作乐业得乐报，因果相契，为是处。作恶业希望乐报，因果相背，为非处，犹言无有是处」。这个解释也非常重要，解释正确没有错误，毕竟六道里面的众生留恋六道占绝大多数，不想舍离。他们在六道里头希望得福报，希望得福报要做善事，这个地方讲因缘果报。

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

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

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

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

第一节 段落集合Paragraphs对象（一）

大家好，我们这节讲解段落集合的第一讲，段落集合Paragraphs对象，所谓段落集合是指所选内容、范围或文档中的段落对象的集合。

1 Paragraphs.Alignment 属性

这个属性返回或设置一个WdParagraphAlignment常量，该常量表示指定段落的对齐方式。

语法：expression.Alignment

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

WdParagraphAlignment 对象的枚举值参考：

wdAlignParagraphCenter 1 居中

wdAlignParagraphDistribute 4 段落字符被分布排列，以填满整个段落宽度。wdAlignParagraphJustify 3 完全两端对齐。

wdAlignParagraphJustifyHi 7 两端对齐，字符高度压缩。

wdAlignParagraphJustifyLow 8 两端对齐，字符轻微压缩.

wdAlignParagraphJustifyMed 5 两端对齐，字符中度压缩

wdAlignParagraphLeft 0 左对齐

wdAlignParagraphRight 2 右对齐。

wdAlignParagraphThaiJustify 9 按照泰语格式布局两端对齐

• 某些WdParagraphAlignment常量可能不可用，具体取决于您选择或安装的语言支持（例如，美国英语）

2 Paragraphs.CharacterUnitFirstLineIndent 属性

这个属性返回或设置首行缩进或悬挂缩进的值 (以字符为单位)。 用正值设置首行缩进，并使用一个负值设置悬挂缩进。

语法：expression. CharacterUnitFirstLineIndent

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

这里给大家介绍两个概念：

• 悬挂缩进：在这种段落格式中，段落的首行文本不加改变，而除首行以外的文本缩进一定的距离。悬挂缩进常用于项目符号和编号列表。悬挂缩进是相对于首行缩进而言的。
• 首行缩进：将段落的第一行从左向右缩进一定的距离，首行外的各行都保持不变，便于阅读和区分文章整体结构。而常见于微软的Office Word文档处理中。

3 Paragraphs.CharacterUnitLeftIndent 属性

这个属性返回或设置指定段落的左缩进值 (以字符为单位)。

语法：expression. CharacterUnitLeftIndent

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

4 Paragraphs.CharacterUnitRightIndent 属性

这个属性返回或设置指定段落的右缩进量（以字符为单位）。

语法：expression. CharacterUnitRightIndent

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

5 实例:段落缩进的设置

下面给大家举个例子，这个例子中我们将看到有关首行缩进，悬挂缩进，左缩进，右缩进的实例，代码：

Sub mynz()

'将活动文档中第一段的首行缩进设为一个字符。

ActiveDocument.Paragraphs(1).CharacterUnitFirstLineIndent = 1

'将活动文档中第二段的悬挂缩进设为 2 个字符。

ActiveDocument.Paragraphs(2).CharacterUnitFirstLineIndent = -2

'将活动文档中第3段的左缩进设为从左边距缩进3个字符。

ActiveDocument.Paragraphs(3).CharacterUnitLeftIndent = 3

'将活动文档中的所有段落的右缩进设为从右边距缩进一个字符。

ActiveDocument.Paragraphs.CharacterUnitRightIndent = 1

End Sub

代码截图：

代码解读：（略）

代码运行过程，我们首先点开段落标识，如下图：

然后点击运行，我们看到这个时候的界面就是如下的样子了：

今日内容回向：

1 什么是段落对象的对齐属性？什么是文档的首行缩进和悬挂缩进属性？

2 什么是段落对象的左缩进？什么是段落对象的右缩进？

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

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