Méthode Selection.InsertStyleSeparator (Word)

Insère une marque de paragraphe spéciale masquée qui permet à Microsoft Word de joindre des paragraphes de styles différents et d'insérer des titres d'introduction dans une table des matières.

Syntaxe

expression. InsertStyleSeparator

expression Obligatoire. Variable qui représente un objet Selection.

Exemple

Cet exemple montre comment insérer un séparateur de styles après chaque paragraphe de style « Heading 4 ».

Remarque

[!REMARQUE] Le compte de paragraphes est inclus dans l'instruction Do...Loop. En effet, lorsque Word insère le séparateur de styles, les deux paragraphes n'en forment plus qu'un ; le nombre de paragraphes contenus dans le document est donc modifié à mesure de l'exécution de la procédure.

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

Voir aussi

Selection, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.