Clase ListLevel (Word VBA)

La clase ListLevel representa un solo nivel de lista, ya sea el único nivel de una lista numerada o con viñetas, o bien uno de los nueve niveles de una lista de esquema numerado.

Set

Para usar una variable de clase ListLevel, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase ListLevel : ListLevels.Item y ListTemplate.ListLevels

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos ListLevel en una colección.

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

Propiedades

Alignment Devuelve o establece una constante WdListLevelAlignment que representa la alineación del nivel de lista de la plantilla de lista.

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

Font Devuelve o establece un objeto Font que representa el formato de carácter del objeto especificado.

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

Index Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

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

LinkedStyle Devuelve o establece el nombre del estilo que está vinculado al objeto ListLevel especificado.

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

NumberFormat Devuelve o establece el formato de número para el nivel de lista especificado.

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

NumberPosition Devuelve o establece la posición (en puntos) del número o de la viñeta del objeto ListLevel especificado.

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

NumberStyle Devuelve o establece el estilo de número para el objeto ListLevel.

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

Parent Devuelve un objeto Object que representa el objeto primario del objeto ListLevel especificado.

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

PictureBullet Devuelve un objeto InlineShape que representa una viñeta de imagen.

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

ResetOnHigher Establece o devuelve el nivel de lista que debe aparecer antes de que el nivel de lista especificado reinicia la numeración a partir de 1.

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

StartAt Devuelve o establece el número inicial para el objeto ListLevel especificado.

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

TabPosition Devuelve o establece la posición de tabulación del objeto ListLevel especificado.

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

TextPosition Devuelve o establece la posición (en puntos) de la segunda línea de texto ajustado para el objeto ListLevel especificado.

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

TrailingCharacter Devuelve o establece el carácter insertado después del número en el nivel de lista especificado.

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

ListLevels.Count Devuelve un Long que representa el número de niveles de lista de la colección.

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

ListLevels.Parent Devuelve un objeto Object que representa el objeto primario del objeto ListLevels especificado.

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