段落间距

跟设置行间距一样，设置段落间距也有两种方法。一种是指定段落间距为标准间距的几倍，另一种是直接指定段落间距的值。

使用Paragraph对象的LineUnitAfter属性和LineUnitBefore属性，可以将段落后面或前面的间距设置为标准间距的指定倍数。

下面打开文档test3.docx，将第2个段落的段前间距设置为2倍标准间距，将段后间距设置为3倍标准间距。

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.LineUnitBefore = 2
   pg.LineUnitAfter = 3
 End Sub

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

Document Image

图4-10 设置段落间距

使用Paragraph对象的SpaceBefore属性和SpaceAfter属性，可以将段落后面或前面的间距设置为指定值。

下面打开文档test3.docx，将第2个段落的段前间距设置为20磅，将段后间距设置为30磅。

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.SpaceBefore = 20
   pg.SpaceAfter = 30
 End Sub