分享成果,随喜正能量】做人智商不高没关系,情商不高也问题不大,但做人的格局一定要大。说白了,你可以不聪明,也可以不懂交际,但一定要大气。如果一点点挫折就让你爬不起来,如果一两句坏话就让你不能释怀,如果动不动就讨厌人憎恨人,那格局就太小了。做人有多大气,就会有多成功。因为胸怀,才是成功者的标志。

《VBA之Word应用》,是我推出第八套教程,教程是专门讲解VBA在Word中的应用,围绕“面向对象编程”讲解,首先让大家认识Word中VBA的对象,以及对象的属性、方法,然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章,今日内容是第四章“段落集合Paragraphs对象及段落Paragraph对象”第5节:段落对齐及缩进的设置。

段落格式缩进怎么设置(段落对齐及缩进的设置)(1)

第五节 段落Paragraph对象的属性(一)

段落Paragraph对象代表所选内容、范围或文档中的一个段落。段落对象是Paragraphs集合的成员,包含所选内容、范围或文档中的所有段落。这节我们仍是先从这个对象的属性开始讲解。

1 Paragraph.Alignment 属性

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

语法:expression.Alignment

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

WdParagraphAlignment常量值:

wdAlignParagraphCenter 1 居中对齐。

wdAlignParagraphDistribute 4 段落字符被分布排列,以填满整个段落宽度。

wdAlignParagraphJustify 3 完全两端对齐。

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

wdAlignParagraphJustifyLow 8 两端对齐,字符轻微压缩。

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

wdAlignParagraphLeft 0 左对齐。

wdAlignParagraphRight 2 右对齐。

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

2 Paragraph.CharacterUnitFirstLineIndent 属性

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

语法:expression. CharacterUnitFirstLineIndent

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

3 Paragraph.CharacterUnitLeftIndent 属性

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

语法:expression. CharacterUnitLeftIndent

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

4 Paragraph.CharacterUnitRightIndent 属性

该属性该属性返回或设置指定段落的右缩进量(以字符为单位)

语法:expression. CharacterUnitRightIndent

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

5 Paragraph.FirstLineIndent 属性

该属性返回或设置首行的行或悬挂缩进的值 (以磅为单位)。 用正数设置首行缩进的尺寸,用负数设置悬挂缩进的尺寸

语法:expression. FirstLineIndent

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

6 实例:Paragraph对齐及缩进

下面我们将给大家介绍一段代码,这段代码将首先为活动文档的首段设置 1 英寸的首行缩进。然后为活动文档的第二段设置 0.5 英寸的悬挂缩进。 InchesToPoints 方法用来将英寸转化为磅值。

下面我们看我给出的代码:

Sub mynzD()

'为活动文档的首段设置 1 英寸的首行缩进。

ActiveDocument.Paragraphs(1).FirstLineIndent = InchesToPoints(1)

'为活动文档的第二段设置 0.5 英寸的悬挂缩进。

ActiveDocument.Paragraphs(2).FirstLineIndent = InchesToPoints(-0.5)

End Sub

代码截图:

段落格式缩进怎么设置(段落对齐及缩进的设置)(2)

代码解读:(略)

代码的运行,在代码运行前,我们先看看界面的截图:

段落格式缩进怎么设置(段落对齐及缩进的设置)(3)

代码运行后:

段落格式缩进怎么设置(段落对齐及缩进的设置)(4)

今日内容回向:

1 段落对象的Alignment属性及CharacterUnitFirstLineIndent 属性、CharacterUnitLeftIndent 属性、CharacterUnitRightIndent 属性、FirstLineIndent 属性的意义是什么?

2 如何利用上述属性设置文档的段落?

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

段落格式缩进怎么设置(段落对齐及缩进的设置)(5)

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

段落格式缩进怎么设置(段落对齐及缩进的设置)(6)

,