Метод Selection.InsertStyleSeparator (Word)

Вставляет специальный скрытый знак абзаца, который позволяет Microsoft Word объединять абзацы, отформатированные с использованием различных стилей абзацев, чтобы можно было вставлять вводные заголовки в оглавление.

Синтаксис

выражение. InsertStyleSeparator

выражение (обязательно). Переменная, представляющая объект выделения .

Пример

В этом примере разделитель стилей вставляется после каждого абзаца, отформатированного с помощью встроенного стиля "Заголовок 4".

Примечание.

Количество абзацев находится внутри Do... Loop, поскольку когда Word вставляет разделитель стилей, два абзаца становятся одним абзацем, поэтому количество абзацев в документе меняется по мере выполнения процедуры.

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.InsertStyleSeparator
            End If
            intCount = intCount + 1
            intParaCount = .Paragraphs.Count
        Loop Until intCount = intParaCount
        
    End With
End Sub

См. также

Объект выделения

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.