InsertStyleSeparator Method

expression.InsertStyleSeparator

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

Example

This example inserts a style separator after every paragraph formatted with the built-in "Heading 4" style.

Note  The paragraph count is inside the Do...Loop because when Word inserts the style separator, the two paragraphs become one paragraph, so the paragraph count for the document changes as the procedure runs.

Sub InlineHeading()
    Dim intCount As Integer
    Dim intParaCount As Integer

    intCount = 1

    With ThisDocument
        Do
            'Look for all paragraphs formatted with "Heading 4" style
            If .Paragraphs(Index:=intCount).Style = "Heading 4" Then
                .Paragraphs(Index:=intCount).Range.Select

                'Insert a style separator if paragraph
                'is formatted with a "Heading 4" style
                Selection.InsertStyleSeparator
            End If
            intCount = intCount + 1
            intParaCount = .Paragraphs.Count
        Loop Until intCount = intParaCount

    End With
End Sub