Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Reduziert den Text unter der Markierung oder dem angegebenen Bereich um eine Überschriftenebene.
Syntax
Ausdruck.
CollapseOutline( _Range_ )
expression Erforderlich. Eine Variable, die ein View-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Range | Optional | Range-Objekt | Der Absatzbereich, der reduziert werden soll. Wird dieses Argument nicht angeben, wird die gesamte Markierung reduziert. |
Hinweise
Wenn sich das Dokument nicht in der Gliederungs- oder Zentraldokumentansicht befindet, tritt ein Fehler auf.
Beispiel
Bei diesem Beispiel wird dem zweiten Absatz im aktiven Dokument die Formatvorlage Überschrift 2 zugewiesen, die Ansicht des aktiven Fensters in die Gliederungsansicht geändert und der Text unter dem zweiten Absatz im Dokument reduziert.
ActiveDocument.Paragraphs(2).Style = wdStyleHeading2
With ActiveDocument.ActiveWindow.View
.Type = wdOutlineView
.CollapseOutline Range:=ActiveDocument.Paragraphs(2).Range
End With
Bei diesem Beispiel wird jede Überschrift im Dokument um eine Ebene reduziert.
With ActiveDocument.ActiveWindow.View
.Type = wdOutlineView
.CollapseOutline Range:=ActiveDocument.Content
End With
Siehe auch
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.