通过

Selection.InsertStyleSeparator Method

  • 项目
Word Developer Reference

Inserts a special hidden paragraph mark that allows Microsoft Word to join paragraphs formatted using different paragraph styles, so lead-in headings can be inserted into a table of contents.

Syntax

expression.InsertStyleSeparator

expression   Required. A variable that represents a Selection object.

Example

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

Bb221919.vs_note(en-us,office.12).gif  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.
Visual Basic for Applications 
  Sub InlineHeading()
    Dim intCount As Integer
    Dim intParaCount As Integer

intCount = 1

With ActiveDocument
    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.<strong class="bterm">InsertStyleSeparator</strong>
        End If
        intCount = intCount + 1
        intParaCount = .Paragraphs.Count
    Loop Until intCount = intParaCount

End With



End Sub

See Also