Dim docNew As DocumentDim styleNew As StyleSet docNew = Documents.AddSet styleNew = docNew.Styles.Add("NewHeading1")With styleNew .BaseStyle = docNew.Styles(wpsStyleHeading1) .ParagraphFormat.LeftIndent = 72End With