如何利用VBA设置段落_ppt

【分享成果，随喜正能量】从灵活性与原则性的角度讲，一个人办事时，只有圆没有方，处处打太极拳，说话态度不鲜明，让人摸不到头脑，模棱两可，行为上不果断，则让人觉得过于圆滑，没有个性，或缺少魄力，很少得到别人的真正的尊敬，同时也很难真正在社会上成就一翻事业。若方如刚，则圆为柔。万事过刚则易折，过柔则难以成型，唯有方圆相得，才能生生不息。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容是第四章“段落集合Paragraphs对象及段落Paragraph对象”第6节：如何利用VBA设置段落。

第六节段落Paragraph对象的属性（二）

大家好，继续讲解段落Paragraph对象的属性，我们要通过属性的了解来掌握段落的性质。

1 Paragraph.PageBreakBefore 属性

如果这个属性设置为TRUE, 则在在指定段落前强制插入分页符。
语法：expression. PageBreakBefore
其中expression 是必需的。一个代表 "段落" 对象的变量。
此属性可以是True、 False或wdUndefined 。

2 Paragraph.Range 属性

这个属性返回一个Range对象, 该对象代表指定段落中包含的文档部分。
语法：expression.Range
其中expression 是必需的。一个代表 "段落" 对象的变量。

3 Paragraph.RightIndent 属性

这个属性返回或设置的右缩进 (以磅为单位) 指定段落。
语法：expression. RightIndent
其中expression 是必需的。一个代表 "段落" 对象的变量。

4 Paragraph.LeftIndent属性

这个属性返回或设置一个Single类型的值，该值代表指定段落的左缩进值（以磅为单位）。
语法：expression. LeftIndent
其中expression 是必需的。一个代表 "段落" 对象的变量。

5 Paragraph.Style 属性

这个属性返回或设置指定对象的样式。
语法：expression.Style
expression 是必需的。一个代表 "段落" 对象的变量。

若要设置该属性, 请指定样式的本地名称、一个整数、一个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 。
【如何利用VBA设置段落】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)
'显示活动文档中各段的样式
For Each myPar In ActiveDocument.Paragraphs
MsgBox myPar.Style
Next
'以下示例将活动文档中第4和5段落交替设置为"正文"和"标题 2"样式。
For i = 4 To 5
If i Mod 2 = 0 Then
ActiveDocument.Paragraphs(i).Style = wdStyleNormal
Else
ActiveDocument.Paragraphs(i).Style = wdStyleHeading2
End If
Next
End Sub
代码截图：