本示例设置活动文档首段的行距为至少 12 磅。
With ActiveDocument.Paragraphs(1)
.LineSpacingRule = wpsLineSpaceAtLeast
.LineSpacing = 12
End With