ActiveDocument.Styles(wpsStyleHeading1).NextParagraphStyle = _
ActiveDocument.Styles(wpsStyleHeading2)
本示例新建一篇文档并添加一个名为“MyStyle”的段落样式。该新样式根据“正文”样式创建,后接“标题 3”样式,左缩进量为 1 英寸(72 磅),设为加粗格式。
Set myDoc = Documents.Add
Set myStyle = myDoc.Styles.Add(Name:= "MyStyle")
With myStyle
.BaseStyle = wpsStyleNormal
.NextParagraphStyle = wpsStyleHeading3
.ParagraphFormat.LeftIndent = 72
.Font.Bold = True
End With