Método Selection.InsertStyleSeparator (Word)

Insere uma marca de parágrafo oculta especial que permite que o Microsoft Word una parágrafos formatados usando estilos diferentes de parágrafo, para que títulos iniciais possam ser inseridos em um sumário.

Sintaxe

expression. InsertStyleSeparator

expression é obrigatório. Uma variável que representa um objeto Selection.

Exemplo

Este exemplo insere um separador de estilos após cada parágrafo formatado com o estilo interno "Heading 4".

Observação

[!OBSERVAçãO] A contagem do parágrafo está dentro do Do...Loop porque quando o Word insere o separador de estilos, dois parágrafos se tornam um parágrafo, assim a contagem do parágrafo para o documento muda conforme o procedimento é executado.

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

Confira também

Objeto Selection

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.