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