段落的行间距

使用Paragraph对象的Space1, Space15和Space2方法可以将指定段落的行间距设置为单倍行距、1.5倍行距和两倍行距。

打开文档test2.docx，设置第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.Space2
End Sub

设置效果如图4-8所示。

Document Image

图4-8 设置段落的行间距

将Paragraph对象的LineSpacingRule属性值设置为wdLineSpaceDouble也可以得到相同的设置效果。

如果希望将行间距设置为一个特定的值，将LineSpacingRule属性值设置为wdLineSpaceAtLeast，然后将LineSpacing属性的值设置为指定值。

code.vba 
Sub Test2()
  Dim doc As Document
  Set doc = Documents.Open("D:\test2.docx")
  Dim pg As Paragraph
  Set pg = doc.Paragraphs(2)
  pg.LineSpacingRule = wdLineSpaceAtLeast
  pg.LineSpacing = 25
End Sub

设置效果如图4-9所示。

Document Image

图4-9 设置段落行间距为指定值