当前位置:文档之家› (WordVBA)批量设置段落格式

(WordVBA)批量设置段落格式

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 .LineSpacingRule 属性值单倍行距wdLineSpaceSingle
1.5 倍行距wdLineSpace1pt5
2 倍行距wdLineSpaceDouble
最小值wdLineSpaceAtLeast
下面指令指定最小行距值为16 磅:
. Selection.ParagraphFormat LineSpacing =16
固定值
wdLineSpaceExactly
下面指令指定固定行距值为20 磅:
Selection.ParagraphFormat.LineSpacing = 20 多倍行距
wdLineSpaceMultiple
下面指令指定行距值为 3 倍行距
.Selection.ParagraphFormat LineSpacing = LinesToPoints(3)
下面示例将行间距设为20 磅固定值。

Sub SetLineSpace()
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 20
End With
End Sub。

相关主题