Método Selection.InsertStyleSeparator (Word)

Inserta una marca de párrafo especial oculta que permite a Microsoft Word unir los párrafos con diferentes formatos de estilo de párrafo, de modo que los títulos de inicio pueden insertarse en una tabla de contenido.

Sintaxis

expresión. InsertStyleSeparator

expresión: Necesaria. Variable que representa un objeto Selection.

Ejemplo:

En este ejemplo se inserta un separador de estilos detrás de todos los párrafos con el formato de estilo integrado "Título 4" (Heading 4).

Nota:

[!NOTA] El recuento de párrafos está dentro de Do...Loop porque, cuando Word inserta el separador de estilos, los dos párrafos se convierten en uno solo de modo que el recuento de párrafos del documento cambia a medida que se ejecuta el procedimiento.

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

Consulte también

Objeto Selection

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.