(WordVBA)批量設(shè)置段落格式

WordVBA--段落示、設(shè)置段落的對(duì)齊方式段落的“對(duì)齊方式”指令格式如下：Selection.ParagraphFormat.Alignment二設(shè)置值對(duì)齊方式ParagraphFormat.Alignment屬性值左對(duì)齊wdAlignParagraphLeft居中wdAlignParagraphCenter右對(duì)齊wdAlignParagraphRight兩端對(duì)齊wdAlignParagraphJustify分散對(duì)齊面示例設(shè)置段落的對(duì)齊方式為“左對(duì)齊”wdAlignParagraphDistributeSubSetAlignment()WithSelection.ParagraphFormat.Alignment=wdAlignParagraphLeftEndWithEndSub設(shè)置值大綱級(jí)別”指令格式如下：設(shè)置值Selection.ParagraphFormat.OutlineLevel示例設(shè)置段落的大綱級(jí)別為SubSetOutlineLevel()WithSelection.ParagraphFormat.OutlineLevel=wdOutlineLevelBodyTextEndWithEndSub大綱級(jí)別的拉菜單中除I級(jí)到級(jí)的大綱級(jí)別，對(duì)應(yīng)的OutlineLevel屬性值分別為wdOutlineLevel1wdOutlineLevel2、、wdOutlineLevel9。二、設(shè)置段落的縮進(jìn)設(shè)置段落的縮進(jìn)有兩種單位：厘米和字符。下面示例將段落的左縮進(jìn)、右縮進(jìn)分別設(shè)為0.8cm、0.5cmSubSetIndent()WithSelection.ParagraphFormat.LeftIndent=CentimetersToPoints(0.8).RightIndent=CentimetersToPoints(0.5)EndWithEndSub下面示例將段落的左縮進(jìn)、右縮進(jìn)分別設(shè)為2字符、0字符：SubSetIndent()WithSelection.ParagraphFormat.CharacterUnitLeftIndent=2.CharacterUnitRightIndent=0EndWithEndSub縮進(jìn)的“特殊格式”沒有“特殊格式”SubSetFirstLineIndent()WithSelection.ParagraphFormat.FirstLineIndent=CentimetersToPoints(0).CharacterUnitFirstLineIndent=0EndWithEndSub“首行縮進(jìn)”面指令設(shè)置“首行縮進(jìn)”0.5厘米SubSetFirstLineIndent()WithSelection.ParagraphFormat.FirstLineIndent=CentimetersToPoints(0.5)EndWithEndSub面指令設(shè)置“首行縮進(jìn)”2字符SubSetFirstLineIndent()WithSelection.ParagraphFormat.CharacterUnitFirstLineIndent=2EndWithEndSub“懸掛縮進(jìn)”下面指令設(shè)置“懸掛縮進(jìn)”0.5厘米SubSetFirstLineIndent()WithSelection.ParagraphFormat.FirstLineIndent=CentimetersToPoints(-0.5)EndWithEndSub下面指令設(shè)置“懸掛縮進(jìn)”2字符SubSetFirstLineIndent()WithSelection.ParagraphFormat.CharacterUnitFirstLineIndent=-2EndWithEndSub三、設(shè)置段落的“間距”下列指令設(shè)置段前間距和段后間距為“自動(dòng)”

Sub.ParagraphSpace()WithSelection.ParagraphFormat.SpaceBeforeAuto=True.SpaceAfterAuto=TrueEndWithEndSub下列指令設(shè)置”段前間距”和”段后間距”0為行Sub.ParagraphSpace()WithSelection.ParagraphFormat.SpaceBefore=0.SpaceBeforeAuto=False.SpaceAfter=0.SpaceAfterAuto=FalseEndWithEndSub四、設(shè)置“行間距”四、行間距設(shè)置值Selection.ParagraphFormat.LineSpacingRul屬性值e行間距設(shè)置值單倍行距wdLineSpaceSingle1.5倍行距wdLineSpacelpt52倍行距最小值固定值單倍行距wdLineSpaceSingle1.5倍行距wdLineSpacelpt52倍行距最小值固定值多倍行距wdLineSpaceDoublewdLineSpaceAtLeast下面扌旨令扌旨定最小行距值為16磅：.Selection.ParagraphFormatLineSpacingwdLineSpaceExactly下面扌旨令扌旨定固定行距值為20磅：Selection.ParagraphFormat.LineSpacing=wdLineSpaceMultiple下面指令指定行距值為3倍行距.Selection.ParagraphFormatLineSpacing=LinesToPoints(3)面示例將行間