农业常识
段落对齐及缩进的设置
2022-01-20 14:37  浏览:231

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

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

第五节 段落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 按照泰语格式布局两端对齐。

某些 WdParagraphAlignment 常数,具体取决于您所选择或安装得语言支持 (例如美国英语)。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

代码截图:

代码解读:(略)

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

代码运行后:

今日内容回向:

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

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

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

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