Procedure TWPParStyle.SetNextStyle(x:string)Unit: WPCTRStyleColClass: WPCTRStyleCol.TWPParStyleParameters x:string