WordVBA---段落格式的设置方法示例.docx

WordVBA-“段落”格式的设置方法示例一、设置段落的对齐方式段落的“对齐方式”指令格式如下：Selection.ParagraphFormat.Alignment=设置值对齐方式ParagraphFormat.Alignment属性值左对齐wdAlignParagraphLeft居中wdAlignParagraphCenter右对齐wdAlignParagraphRight两端对齐wdAlignParagraphJustify分散对齐wdAlignParagraphDistribute下面示例设置段落的对齐方式为“左对齐”。Sub SetAlignment()With Selection.ParagraphFormat .Alignment = wdAlignParagraphLeftEnd WithEnd Sub“大纲级别”指令格式如下：Selection.ParagraphFormat .OutlineLevel =设置值下面示例设置段落的大纲级别为“正文文本”。Sub SetOutlineLevel ()With Selection.ParagraphFormat .OutlineLevel = wdOutlineLevelBodyTextEnd WithEnd Sub在大纲级别的下拉菜单中除“正文文本”外，还有1级到9级的大纲级别， 对应的OutlineLevel属性值分别为wdOutlineLevel1、wdOutlineLevel2、wdOutlineLevel9。二、设置段落的缩进设置段落的缩进有两种单位： 厘米和字符。下面示例将段落的左缩进、右缩进分别设为0.8cm、0.5cmSub SetIndent ()With Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0.8) .RightIndent = CentimetersToPoints(0.5)End WithEnd Sub下面示例将段落的左缩进、右缩进分别设为2字符、0字符：Sub SetIndent ()With Selection.ParagraphFormat.CharacterUnitLeftIndent=2 .CharacterUnitRightIndent=0End WithEnd Sub缩进的“特殊格式”1 没有“特殊格式”Sub SetFirstLineIndent()With Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0).CharacterUnitFirstLineIndent =0End WithEnd Sub2 “首行缩进”下面指令设置“首行缩进”0.5厘米Sub SetFirstLineIndent()With Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.5)End WithEnd Sub下面指令设置“首行缩进”2字符Sub SetFirstLineIndent()With Selection.ParagraphFormat.CharacterUnitFirstLineIndent =2End WithEnd Sub3 “悬挂缩进”下面指令设置“悬挂缩进”0.5厘米Sub SetFirstLineIndent()With Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(-0.5)End WithEnd Sub下面指令设置“悬挂缩进”2字符Sub SetFirstLineIndent()With Selection.ParagraphFormat.CharacterUnitFirstLineIndent =-2End WithEnd Sub三、设置段落的“间距”下列指令设置段前间距和段后间距为“自动”Sub .ParagraphSpace()With Selection.ParagraphFormat .SpaceBeforeAuto = True .SpaceAfterAuto = TrueEnd WithEnd Sub下列指令设置”段前间距”和”段后间距”为“0行”Sub .ParagraphSpace()With Selection.ParagraphFormat .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = FalseEnd WithEnd Sub四、设置“行间距”行间距设置值Selection.ParagraphFormat .LineSpacingRule属性值单倍行距wdLineSpaceSingle1.5倍行距wdLineSpace1pt52倍行距wdLineSpaceDouble最小值wdLineSpaceAtLeast下面指令指定最小行距值为16磅：. Selection.ParagraphFormat LineSpacing =16固定值wdLineSpaceExactly下面指令指定固定行距值为20磅：Selection.ParagraphFormat .LineSpacing = 20多倍行距wdLineSpaceMultiple下面指令指定行距值为3倍行距. Selection.ParagraphFormat LineSpacing = LinesToPoints(3)下面示例将行间距设为20磅固定值。Sub