NextParagraphStyle Property

expression.NextParagraphStyle

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example creates a new text style and specifies that the text style following the new text style is the Normal style.

Sub CreateNewTextStyle()
    Dim styNew As TextStyle
    Dim fntStyle As Font

    Set styNew = ActiveDocument.TextStyles.Add(StyleName:="Heading 1")
    Set fntStyle = styNew.Font

    With fntStyle
        .Name = "Tahoma"
        .Bold = msoTrue
        .Size = 15
    End With

    With styNew
        .Font = fntStyle
        .NextParagraphStyle = "Normal"
    End With
End Sub