Classe ListTemplate (Word VBA)

La classe ListTemplate représente un modèle de liste donné qui contient tous les attributs de mise en forme définissant une liste.

Set

Pour utiliser une variable de classe ListTemplate, elle doit d'abord être instanciée, par exemple

Dim lte as ListTemplate
Set lte = ActiveDocument.ListTemplates(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ListTemplate : ListFormat.ListTemplate, Convert, ListTemplates.Add, ListTemplates.Item, Style.ListTemplate, Document.ListTemplates, ListGallery.ListTemplates et Template.ListTemplates

For Each

Voici un exemple de traitement des éléments ListTemplate dans une collection

Dim lte As ListTemplate
For Each lte In ActiveDocument.ListTemplates
	
Next lte

Convert

Convertit une liste hiérarchisée en une liste simple, et inversement.

Vous ne pouvez pas utiliser la méthode Convert sur un modèle de liste dérivés de la collection ListGalleries.

Syntaxe : expression.Convert (Level)

Level: Niveau à utiliser pour la mise en forme de la nouvelle liste.

ActiveDocument.ListTemplates(1).Convert

ListLevels

Renvoie une collection ListLevels qui représente tous les niveaux de l’objet ListTemplatespécifié.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

Set myListTemp = _ 
 ListGalleries(wdOutlineNumberGallery).ListTemplates(1) 
For Each mylevel In myListTemp.ListLevels 
 mylevel.LinkedStyle = "Heading " & mylevel.index 
Next mylevel

Name

Cette propriété renvoie ou définit le nom de l'objet spécifié.

ActiveDocument.ListTemplates(1).Name =

OutlineNumbered

True si l'objet ListTemplate spécifié est numérotée de type plan.

La définition de cette propriété sur false convertit le modèle de liste en une liste à un niveau qui utilise la mise en forme du premier niveau. Vous ne pouvez pas définir cette propriété pour un objet ListTemplate renvoyé à partir d'un objet ListGallery .

Selection.Range.ListFormat.ListTemplate.OutlineNumbered = False

Parent

Renvoie un Object qui représente l'objet parent de l'objet ListTemplate spécifié.

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

ListTemplates.Add

Renvoie un objet ListTemplate qui représente un nouveau modèle de liste.

Vous ne pouvez pas utiliser la méthode Add des objets ListTemplates renvoyés à partir d'un objet ListGallery.

Syntaxe : expression.Add (OutlineNumbered, Name)

Set myList = _ 
 ActiveDocument.ListTemplates.Add(OutlineNumbered:=False) 
myList.ListLevels(1).NumberStyle = wdListNumberStyleUpperCaseLetter 
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myList

Arguments

Les arguments suivants sont facultatifs

OutlineNumbered (Boolean) - True pour appliquer un plan de numérotation pour le nouveau modèle de liste.

Name (String) - Nom facultatif utilisé pour la liaison du modèle de liste à un champ LISTNUM.

ListTemplates.Count

Renvoie un type long qui représente le nombre de modèles de liste dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.ListTemplates.Count

ListTemplates.Item

Renvoie un objet ListTemplate spécifique appartenant à une collection.

Syntaxe : expression.Item (Index)

Index: Objet spécifique qui doit être renvoyé.

Dim lte As ListTemplate
Set lte = ActiveDocument.ListTemplates(Index:=1)

ListTemplates.Parent

Renvoie un Object qui représente l'objet parent de l'objet ListTemplates spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.ListTemplates.Parent