expression.BaseStyle
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets the base formatting of the style named Body Text to the formatting of the Normal style.
Sub SetBaseStyle()
With ActiveDocument.TextStyles
.Add "Body Text"
.Item("Body Text").BaseStyle = "Normal"
End With
End Sub