本示例删除设置为“List 1”样式的段落的间距。运行该示例时,假定活动文档中存在设置为“List 1”样式的连续段落。

ActiveDocument.Styles("List 1") _
    .NoSpaceBetweenParagraphsOfSameStyle = True