Selection.InsertStyleSeparator-Methode (Word)

Fügt eine besondere, verborgene Absatzmarke ein, mit der in Microsoft Word Absätze, die mit unterschiedlichen Formatvorlagen formatiert sind, so zusammengeführt werden können, dass einleitende Überschriften in ein Inhaltsverzeichnis eingefügt werden können.

Syntax

expression. InsertStyleSeparator

Ausdruck: Erforderlich. Eine Variable, die ein Selection-Objekt darstellt.

Beispiel

In diesem Beispiel wird nach jedem Absatz, der mit der vordefinierten Formatvorlage Überschrift 4 formatiert ist, ein Formatvorlagentrennzeichen eingefügt.

Hinweis

Die Absatzzählung erfolgt innerhalb der Anweisung Do...Loop, da die beiden Absätze beim Einfügen des Formatvorlagentrennzeichens zu einem Absatz zusammengeführt werden, wodurch sich die Absatzzählung für das Dokument beim Ausführen der Prozedur ändert.

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

Siehe auch

Selection-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.