BaseStyle Property Example

This example creates a new document and then adds a new paragraph style named "myHeading." It assigns Heading 1 as the base style for the new style . A left indent of 1 inch (72 points) is then specified for the new style.

Set myDoc = Documents.Add
Set myHeading = myDoc.Styles.Add("myHeading")
With myHeading
    .BaseStyle = myDoc.Styles(wdStyleHeading1)
    .ParagraphFormat.LeftIndent = 72
End With

This example returns the base style that's used for the Body Text paragraph style.

base = ActiveDocument.Styles(wdStyleBodyText).BaseStyle
MsgBox base