本示例创建名为“Style1”的样式,该样式不需进行确认即可重新定义。

Dim docNew as Document
Dim styleNew as Style
Set docNew = Documents.Add
Set styleNew = docNew.Styles.Add("Style1")
With styleNew
    .BaseStyle = docNew.Styles(wpsStyleNormal)
    .ParagraphFormat.LineSpacingRule = wpsLineSpaceDouble
    .AutomaticallyUpdate = True
End With