【WORD VBA】指定範圍文字段落調整

Sub 指定範圍文字段落調整()

With Selection.Paragraphs ‘指定需要調整的段落
.Alignment = wdAlignParagraphJustify ‘左右對齊
.LineSpacingRule = wdLineSpace1pt ‘行高1倍
.LineUnitBefore = 0.5 ‘與前段距離為0.5行高
.LineUnitAfter = 0 ‘與後段距離為0行高

End With

End Sub