《WordVBA段落格式的设置方法示例.docx》由会员分享，可在线阅读，更多相关《WordVBA段落格式的设置方法示例.docx（5页珍藏版）》请在三一办公上搜索。
1、WordVBA段落格式的设置方法示例WordVBA-“段落”格式的设置方法示例 一、设置段落的对齐方式 段落的“对齐方式”指令格式如下： Selection.ParagraphFormat.Alignment=设置值 对齐方式 左对齐 居中 右对齐 两端对齐 分散对齐 ParagraphFormat.Alignment属性值 wdAlignParagraphLeft wdAlignParagraphCenter wdAlignParagraphRight wdAlignParagraphJustify wdAlignParagraphDistribute 下面示例设置段落的对齐方式为“左对齐”
2、。 Sub SetAlignment With Selection.ParagraphFormat .Alignment = wdAlignParagraphLeft End With End Sub “大纲级别”指令格式如下： Selection.ParagraphFormat.OutlineLevel =设置值 下面示例设置段落的大纲级别为“正文文本”。 Sub SetOutlineLevel With Selection.ParagraphFormat .OutlineLevel = wdOutlineLevelBodyText End With End Sub 1 / 5 在大纲级别的
3、下拉菜单中除“正文文本”外，还有1级到9级的大纲级别， 对应的OutlineLevel属性值分别为wdOutlineLevel1、wdOutlineLevel2、wdOutlineLevel9。 二、设置段落的缩进 设置段落的缩进有两种单位： 厘米和字符。 下面示例将段落的左缩进、右缩进分别设为0.8cm、0.5cm Sub SetIndent With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0.8) .RightIndent = CentimetersToPoints(0.5) End With End Sub
4、 下面示例将段落的左缩进、右缩进分别设为2字符、0字符： Sub SetIndent With Selection.ParagraphFormat .CharacterUnitLeftIndent=2 .CharacterUnitRightIndent=0 End With End Sub 缩进的“特殊格式” 1 没有“特殊格式” Sub SetFirstLineIndent With Selection.ParagraphFormat .FirstLineIndent = CentimetersToPoints(0) .CharacterUnitFirstLineIndent =0 End
5、With End Sub 2 / 5 2 “首行缩进” 下面指令设置“首行缩进”0.5厘米 Sub SetFirstLineIndent With Selection.ParagraphFormat .FirstLineIndent = CentimetersToPoints(0.5) End With End Sub 下面指令设置“首行缩进”2字符 Sub SetFirstLineIndent With Selection.ParagraphFormat .CharacterUnitFirstLineIndent =2 End With End Sub 3 “悬挂缩进” 下面指令设置“悬挂缩
6、进”0.5厘米 Sub SetFirstLineIndent With Selection.ParagraphFormat .FirstLineIndent = CentimetersToPoints(-0.5) End With End Sub 下面指令设置“悬挂缩进”2字符 Sub SetFirstLineIndent With Selection.ParagraphFormat .CharacterUnitFirstLineIndent =-2 End With End Sub 3 / 5 三、设置段落的“间距” 下列指令设置段前间距和段后间距为“自动” Sub .ParagraphSp
7、ace With Selection.ParagraphFormat .SpaceBeforeAuto = True .SpaceAfterAuto = True End With End Sub 下列指令设置”段前间距”和”段后间距”为“0行” Sub .ParagraphSpace With Selection.ParagraphFormat .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False End With End Sub 四、设置“行间距” 行间距设置值 单倍行距 1.5倍
8、行距 2倍行距 最小值 Selection.ParagraphFormat .LineSpacingRule属性值 wdLineSpaceSingle wdLineSpace1pt5 wdLineSpaceDouble wdLineSpaceAtLeast 下面指令指定最小行距值为16磅： . Selection.ParagraphFormat LineSpacing =16 wdLineSpaceExactly 下面指令指定固定行距值为20磅： Selection.ParagraphFormat.LineSpacing = 20 多倍行距 wdLineSpaceMultiple 下面指令指定行距值为3倍行距 4 / 5 固定值 .Selection.ParagraphFormat LineSpacing = LinesToPoints(3) 下面示例将行间距设为20磅固定值。 Sub SetLineSpace With Selection.ParagraphFormat .LineSpacingRule = wdLineSpaceExactly .LineSpacing = 20 End With End Sub 5 / 5
