《VBA之Word应用》（版权10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。
这套教程是专门针对WORD VBA 的教程，是VBA中的稀缺资源，我给这套教程分归为中级教程，希望大家在VBA入门后再学习这套教程，这样会更加深入的理解面向对象编程的意义。
本套教程共三册十六章，今日内容为：VBA之Word应用第四章第六节：段落Paragraph对象的属性（二）
【分享成果，随喜正能量】8千万别把运气当实力，别把平台当本事。认清自己的实力，知道自己有几斤几两，不低估风险，不高估自己，才不会被时代淘汰。因为这个世界上，没有稳定的工作，只有赖以生存的实力。
第四章段落集合Paragraphs对象及段落Paragraph对象
大家好，我们这章的内容是段落集合Paragraphs对象及段落Paragraph对象。在Word的相关知识点中,段落是一块重要的内容,段落是组成文档的一部分。
什么是段落呢？段落就是包含一个段落标记以及所有位于此段落标记和前一个段落标记之间的文本（不包括前一个段落标记）。段落标记包含该段落的所有格式信息。当复制单词、句子和段落时，如果包含段落标记，则所有包含在段落标记中的格式信息也被复制，并在它们被粘贴到其它位置时应用于所属段落。
本章的内容的讲解仍是从对象的属性、方法来逐渐深入地讲解。
第六节段落Paragraph对象的属性（二）
大家好，继续讲解段落Paragraph对象的属性，我们要通过属性的了解来掌握段落的性质。
1Paragraph.PageBreakBefore 属性
如果这个属性设置为TRUE, 则在在指定段落前强制插入分页符。
语法：expression. PageBreakBefore
其中expression 是必需的。一个代表 "段落" 对象的变量。
此属性可以是True、 False或wdUndefined。
2Paragraph.Range 属性
这个属性返回一个Range对象, 该对象代表指定段落中包含的文档部分。
语法：expression.Range
其中expression 是必需的。一个代表 "段落" 对象的变量。
3Paragraph.RightIndent 属性
这个属性返回或设置的右缩进 (以磅为单位) 指定段落。
语法：expression. RightIndent
其中expression 是必需的。一个代表 "段落" 对象的变量。
4Paragraph.LeftIndent属性
这个属性返回或设置一个Single类型的值，该值代表指定段落的左缩进值（以磅为单位）。
语法：expression. LeftIndent
其中expression 是必需的。一个代表 "段落" 对象的变量。
5Paragraph.Style 属性
这个属性返回或设置指定对象的样式。
语法：expression.Style
expression 是必需的。 一个代表 "段落" 对象的变量。
l若要设置该属性, 请指定样式的本地名称、一个整数、一个WdBuiltinStyle常量或一个代表样式的对象。
部分WdBuiltinStyle 的枚举值：
wdStyleBlockQuotation-85文本块。
wdStyleBodyText -67正文文本。
wdStyleBodyText2 -81正文文本 2。
wdStyleBodyText3 -82正文文本 3。
wdStyleBodyTextFirstIndent-78正文首行缩进。
wdStyleBodyTextFirstIndent2-79正文首行缩进 2。
wdStyleBodyTextIndent-68正文文本缩进。
wdStyleBodyTextIndent2 -83正文文本缩进 2。
wdStyleBodyTextIndent3 -84正文文本缩进 3。
wdStyleCommentReference -40批注引用。
wdStyleCommentText-31批注文字。
wdStyleDate -77日期。
wdStyleDefaultParagraphFont-66默认段落字体。
wdStyleHeading1-2标题 1。
wdStyleHeading2-3标题 2。
wdStyleHeading3-4标题 3。
wdStyleHeading4-5标题 4。
wdStyleHeading5-6标题 5。
wdStyleHeading6-7标题 6。
wdStyleHeading7-8标题 7。
wdStyleHeading8-9标题 8。
wdStyleHeading9-10标题 9。
wdStyleList-48列表。
wdStyleList2-51列表 2。
wdStyleList3-52列表 3。
wdStyleList4-53列表 4。
wdStyleList5-54列表 5。
wdStyleMessageHeader-74信息标题。
wdStyleNavPane-90文档结构图。
wdStyleNormal-1正文。
wdStyleNormalIndent-29正文缩进。
wdStyleNormalObject-158正文（应用于对象）。
wdStyleNormalTable-106正文（在表格中应用）。
wdStyleNoteHeading-80注释标题。
wdStylePageNumber-42页码。
wdStylePlainText-91纯文本。
6实例：Paragraph段落的设置
下面我仍给大家举个实例,这个实例中，我们会看到一些段落属性的设置。先看下面的代码：
Sub mynzE()
'将最后一段分页
ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).PageBreakBefore= True
'将活动文档中的第3段应用“标题1”样式。
ActiveDocument.Paragraphs(3).Range.Style= wdStyleHeading1
'将第一个段落的右缩进在活动文档中为1 英寸右边距
ActiveDocument.Paragraphs(1).RightIndent= InchesToPoints(1)
'设置活动文档为1 英寸中的第一个段落的左缩进。
ActiveDocument.Paragraphs(1).LeftIndent= InchesToPoints(1)
'显示活动文档中各段的样式
ForEach myPar In ActiveDocument.Paragraphs
MsgBoxmyPar.Style
Next
'以下示例将活动文档中第4和5段落交替设置为"正文"和"标题2"样式。
Fori = 4 To 5
Ifi Mod 2 = 0 Then
ActiveDocument.Paragraphs(i).Style= wdStyleNormal
Else
ActiveDocument.Paragraphs(i).Style= wdStyleHeading2
EndIf
Next
End Sub
代码截图：
代码解读：（略）
代码的运行效果，我们仍是先看看代码运行前：
我们点击运行：
今日内容回向：
1段落对象的PageBreakBefore属性及Range 属性、RightIndent 属性、LeftIndent属性、Style 属性的意义是什么？
2如何利用上述属性设置文档的段落？
本讲内容参考程序文件：Doc 004文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
