(WordVBA)批量设置段落格式

1、WordVBA- “段落”格式的设置方法示例、设置段落的对齐方式 段落的“对齐方式 ”指令格式如下：Selection.ParagraphFormat.Alignment= 设置值对齐方式ParagraphFormat.Alignment 属性值左对齐wdAlignParagraphLeft居中wdAlignParagraphCenter右对齐wdAlignParagraphRight两端对齐wdAlignParagraphJustify分散对齐wdAlignParagraphDistribute面示例设置段落的对齐方式为“左对齐”Sub SetAlignment()With Selectio

2、n.ParagraphFormat.Alignment = wdAlignParagraphLeftEnd WithEnd Sub设置值大纲级别 ”指令格式如下：Selection.ParagraphFormat.OutlineLevel =面示例设置段落的大纲级别为“正文文本”Sub SetOutlineLevel ()With Selection.ParagraphFormat .OutlineLevel = wdOutlineLevelBodyTextEnd WithEnd Sub6 / 5在大纲级别的下拉菜单中除“正文文本”外，还有 1 级到 9 级的大纲级别， 对应的、 wdOutl

3、ineLevel9 。OutlineLevel 属性值分别为 wdOutlineLevel1 、 wdOutlineLevel2 、二、设置段落的缩进设置段落的缩进有两种单位： 厘米和字符。下面示例将段落的左缩进、右缩进分别设为 0.8cm 、 0.5cmSub SetIndent ()With Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0.8).RightIndent = CentimetersToPoints(0.5)End WithEnd Sub下面示例将段落的左缩进、右缩进分别设为 2 字符、 0 字符：Sub

4、 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 厘米

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.Par

6、agraphFormat .FirstLineIndent = CentimetersToPoints(-0.5)End WithEnd Sub 下面指令设置“悬挂缩进” 2 字符Sub SetFirstLineIndent()With Selection.ParagraphFormat .CharacterUnitFirstLineIndent =-2End WithEnd Sub三、设置段落的“间距”下列指令设置段前间距和段后间距为“自动”Sub .ParagraphSpace()With Selection.ParagraphFormat .SpaceBeforeAuto = True

7、.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 倍行距wdLine

8、Space1pt52 倍行距wdLineSpaceDouble最小值wdLineSpaceAtLeast 下面指令指定最小行距值为 16 磅 ：. Selection.ParagraphFormat LineSpacing =16固定值wdLineSpaceExactly 下面指令指定固定行距值为20 磅 ：Selection.ParagraphFormat.LineSpacing = 20多倍行距wdLineSpaceMultiple 下面指令指定行距值为 3 倍行距.Selection.ParagraphFormat LineSpacing = LinesToPoints(3)面示例将行间距设为 2