WordVBA---段落格式的設(shè)置方法示例

1、精選文檔WordVBA- “段落”格式的設(shè)置方法示例一、設(shè)置段落的對齊方式段落的“對齊方式”指令格式如下：Selection.ParagraphFormat.Alignment= 設(shè)置值對齊方式ParagraphFormat.Alignment屬性值4對齊wdAlignParagraphLeft居中wdAlignParagraphCenter右對齊wdAlignParagraphRight兩端對齊wdAlignParagraphJustify分散對齊wdAlignParagraphDistribute卜面示例設(shè)置段落的對齊方式為“左對齊”Sub SetAlignment()With Selec

2、tion.ParagraphFormat.Alignment = wdAlignParagraphLeftEnd WithEnd Sub“大綱級別”指令格式如下：Selection.ParagraphFormat .OutlineLevel =設(shè)置值下面示例設(shè)置段落的大綱級別為“正文文本”。Sub SetOutlineLevel ()With Selection.ParagraphFormat.OutlineLevel = wdOutlineLevelBodyTextEnd WithEnd Sub對應(yīng)的在大綱級別的下拉菜單中除“正文文本”外，還有 1 級到 9 級的大綱級別，OutlineLe

3、vel 屬性值分別為 wdOutlineLevell 、wdOutlineLevel2 、wdOutlineLevel9 。二、設(shè)置段落的縮進(jìn)設(shè)置段落的縮進(jìn)有兩種單位：厘米和字符。下面示例將段落的左縮進(jìn)、右縮進(jìn)分別設(shè)為0.8cm 、 0.5cmSub SetIndent ()With Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0.8).RightIndent = CentimetersToPoints(0.5) End With End Sub下面示例將段落的左縮進(jìn)、右縮進(jìn)分別設(shè)為2 字符、 0 字符：Sub SetI

4、ndent ()With Selection.ParagraphFormat .CharacterUnitLeftIndent=2 .CharacterUnitRightIndent=0 End With End Sub縮進(jìn)的“特殊格式”1 沒有“特殊格式”Sub SetFirstLineIndent()With Selection.ParagraphFormat .FirstLineIndent = CentimetersToPoints(0) .CharacterUnitFirstLineIndent =0End WithEnd Sub2 “首行縮進(jìn)”下面指令設(shè)置“首行縮進(jìn)”0.5 厘米S

5、ub SetFirstLineIndent()With Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.5)End WithEnd Sub下面指令設(shè)置“首行縮進(jìn)”2 字符Sub SetFirstLineIndent()With Selection.ParagraphFormat.CharacterUnitFirstLineIndent =2End WithEnd Sub3 “懸掛縮進(jìn)”下面指令設(shè)置“懸掛縮進(jìn)”0.5 厘米Sub SetFirstLineIndent()With Selection.Paragra

6、phFormat.FirstLineIndent = CentimetersToPoints(-0.5)End WithEnd Sub下面指令設(shè)置“懸掛縮進(jìn)”2 字符Sub SetFirstLineIndent()With Selection.ParagraphFormat.CharacterUnitFirstLineIndent =-2End WithEnd Sub可編輯精選文檔三、設(shè)置段落的“間距”下列指令設(shè)置段前間距和段后間距為“自動”Sub .ParagraphSpace()With Selection.ParagraphFormat .SpaceBeforeAuto = True .

7、SpaceAfterAuto = TrueEnd WithEnd Sub下列指令設(shè)置”段前間距”和“段后間距”為“0行”Sub .ParagraphSpace()With Selection.ParagraphFormat .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = FalseEnd WithEnd Sub四、設(shè)置“行間距”行間距設(shè)置值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)卜面示例將行間距設(shè)為20