Klasse ListLevel (Word VBA)

Die Klasse ListLevel stellt eine einzelne Listenebene dar, entweder die einzige Ebene für eine Aufzählungs-oder nummerierte Liste oder eine der neun Ebenen einer nummerierten Gliederungsliste.

Set

Um eine ListLevel -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim lll as ListLevel
Set lll = ActiveDocument.ListTemplates(1).ListLevels(Index:=1)

Die folgenden Prozeduren können zum Festlegen der ListLevel Klassenvariablen verwendet werden : ListLevels.Item und ListTemplate.ListLevels

For Each

Hier ist ein Beispiel für die Verarbeitung der ListLevel -Elemente in einer Sammlung

Dim lev As ListLevel
r = 0 
For Each lev In ListGalleries(wdOutlineNumberGallery) _ 
 .ListTemplates(6).ListLevels 
 lev.Alignment = wdListLevelAlignLeft 
 lev.NumberPosition = r 
 lev.TextPosition = r 
 lev.TrailingCharacter = wdTrailingSpace 
 r = r + 18 
Next lev

Eigenschaften

Alignment Zurückgeben oder Festlegen einer WdListLevelAlignment -Konstanten, die die Ausrichtung für die Listenebene der Listenvorlage darstellt.

ActiveDocument.ListTemplates(1).ListLevels(1).Alignment = wdListLevelAlignCenter

Font Gibt ein Font -Objekt zurück, das die Zeichenformatierung des angegebenen Objekts darstellt, oder legt dieses fest.

ActiveDocument.ListTemplates(1).ListLevels(1).Font =

Index Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

Dim lngIndex As Long
lngIndex = ActiveDocument.ListTemplates(1).ListLevels(1).Index

LinkedStyle Gibt den Namen der Formatvorlage zurück, die mit dem angegebenen ListLevel -Objekt verknüpft ist, oder legt diesen fest.

ActiveDocument.ListTemplates(1).ListLevels(1).LinkedStyle =

NumberFormat Gibt das Zahlenformat für die angegebene Listenebene zurück oder legt es fest.

ActiveDocument.ListTemplates(1).ListLevels(1).NumberFormat =

NumberPosition Gibt die Position (in Punkt) der Zahl oder des Aufzählungszeichens für das angegebene ListLevel -Objekt zurück oder legt Sie fest.

ActiveDocument.ListTemplates(1).ListLevels(1).NumberPosition =

NumberStyle Gibt die Zahlenformatvorlage für das ListLevel-Objekt zurück oder legt sie fest.

ActiveDocument.ListTemplates(1).ListLevels(1).NumberStyle = wdListNumberStyleAiueo

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ListLevel-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.ListTemplates(1).ListLevels(1).Parent

PictureBullet Gibt ein InlineShape -Objekt zurück, das ein Bildaufzählungszeichen darstellt.

Dim isePictureBullet As InlineShape
Set isePictureBullet = ActiveDocument.ListTemplates(1).ListLevels(1).PictureBullet

ResetOnHigher Gibt die Listenebene zurück, die erreicht werden muss, bevor bei der angegebenen Listenebene mit dem Nummerierungsvorgang wieder bei 1 begonnen wird, oder legt diese fest.

ActiveDocument.ListTemplates(1).ListLevels(1).ResetOnHigher =

StartAt Gibt die Startnummer für das angegebene ListLevel -Objekt zurück oder legt Sie fest.

ActiveDocument.ListTemplates(1).ListLevels(1).StartAt =

TabPosition Gibt die Tabstoppposition für das angegebene ListLevel -Objekt zurück oder legt Sie fest.

ActiveDocument.ListTemplates(1).ListLevels(1).TabPosition =

TextPosition Gibt die Position (in Punkt) für die zweite Zeile des Umbruchs Texts für das angegebene ListLevel -Objekt zurück oder legt Sie fest.

ActiveDocument.ListTemplates(1).ListLevels(1).TextPosition =

TrailingCharacter Gibt das Zeichen zurück, das nach der Nummer der angegebenen Listenebene eingefügt ist, oder legt dieses Zeichen fest.

ActiveDocument.ListTemplates(1).ListLevels(1).TrailingCharacter = wdTrailingNone

ListLevels.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Listenebenen in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.ListTemplates(1).ListLevels.Count

ListLevels.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ListLevels-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.ListTemplates(1).ListLevels.Parent