Метод Selection.InsertStyleSeparator (Word)

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

Синтаксис

выражение. InsertStyleSeparator

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

Пример

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

Примечание.

Счетчик абзаца находится внутри элемента Do... Цикл, так как при вставке разделителя стиля 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

См. также

Объект selection

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

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