(WordVBA)批量设置段落格式

、设置段落的对齐方式 段落的“对齐方式 ”指令格式如下：

Selection.ParagraphFormat.Alignment= 设置值

对齐方式 左对齐 居中 右对齐 两端对齐 ParagraphFormat.Alignment 属性值 wdAlignParagraphLeft wdAlignParagraphCenter wdAlignParagraphRight wdAlignParagraphJustify

分散对齐 wdAlignParagraphDistribute 面示例设置段落的对齐方式为“左对齐”

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 级到 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

下面示例将段落的左缩进、右缩进分别设为 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 With End Sub 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 “悬挂缩进” 下面指令设置“悬挂缩进” 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

三、设置段落的“间距”

下列指令设置段前间距和段后间距为“自动”

Sub .ParagraphSpace()

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

四、设置“行间距”

Selection.ParagraphFormat .LineSpacingRul行间距设置值 e 属性值 单倍行距 1.5 倍行距 2 倍行距 wdLineSpaceSingle wdLineSpace1pt5 最小值 wdLineSpaceDouble wdLineSpaceAtLeast 下面指令指定最小行距值为 16 磅 ： . Selection.ParagraphFormat LineSpacing wdLineSpaceExactly 下面指令指定固定行距 固定值 值为 20 磅 ： Selection.ParagraphFormat.LineSpacing = 多倍行距 wdLineSpaceMultiple 下面指令指定行距值为 3 倍行距 .Selection.ParagraphFormat LineSpacing = LinesToPoints(3) 面示例将行间距设为 20 磅固定值。

Sub SetLineSpace()

With Selection.ParagraphFormat .LineSpacingRule = wdLineSpaceExactly .LineSpacing = 20 End With End Sub