本示例设置活动文档首段的行距为至少 12 磅。

With ActiveDocument.Paragraphs(1)
    .LineSpacingRule = wpsLineSpaceAtLeast
    .LineSpacing = 12
End With