段落对齐方式

使用Paragraph对象的Alignment属性对指定段落进行对齐。该属性的取值如表4-2中所示。

表4-2 段落对齐方式

对 齐 方 式 常 数 值
居中对齐 wdAlignParagraphCenter 1
字符填满整个段落宽度 wdAlignParagraphDistribute 4
两端完全对齐 wdAlignParagraphJustify 3
两端对齐，字符高度压缩 wdAlignParagraphJustifyHi 7
两端对齐，字符轻微压缩 wdAlignParagraphJustifyLow 8
两端对齐，字符中度压缩 wdAlignParagraphJustifyMed 5
左对齐 wdAlignParagraphLeft 0
右对齐 wdAlignParagraphRight 2

下面在打开的文档中将第2个段落的对齐方式设置为填满整个段落宽度。

code.vba 
Sub Test()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")
  Dim pg As Paragraph
  Set pg = doc.Paragraphs(2)

  pg.Alignment = wdAlignParagraphDistribute
End Sub

设置效果如图4-11所示。可见，第2段的每一行都调整字间距并填满整行宽度。

Document Image

图4-11 设置段落的对齐方式