Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Collection d’objets ListTemplate dans un document, une galerie de listes ou un modèle.
Remarques
Utilisez la propriété ListTemplates avec un objet Document, ListGallery ou Template pour retourner une collection ListTemplates . Avec un objet ListGallery, la collection ListTemplates représente les sept formats de liste pour les listes à puces, les listes numérotées et les listes numérotées de plan.
L'exemple suivant affiche un message avec l'état de niveau (unique ou à plusieurs niveaux) pour chaque modèle de liste du document actif.
For Each lt In ActiveDocument.ListTemplates
MsgBox "This is a multiple-level list template - " _
& lt.OutlineNumbered
Next lt
Utilisez la méthode Add pour ajouter un modèle de liste à la collection dans le modèle ou le document spécifié. L'exemple suivant ajoute un nouveau modèle de liste au document actif et comment l'appliquer à la sélection.
Set myLT = ActiveDocument.ListTemplates.Add
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myLT
Utilisez ListTemplates (Index), où Index correspond au nom d’un modèle de liste ou d’un numéro d’index, pour renvoyer un modèle de liste unique dans un document ou un modèle. L’exemple suivant définit une variable objet égale à un modèle de liste nommé « ListBullets » dans le document actif, puis met en forme la sélection comme premier niveau de ce modèle de liste.
Set mylt = ActiveDocument.ListTemplates("ListBullets")
Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:=mylt, ApplyLevel:=1
Utilisez ListTemplates (Index), où Index est un chiffre de 1 à 7, pour retourner un modèle de liste unique dans une galerie de listes. L’exemple suivant définit une variable objet égale au premier modèle de liste de la galerie de liste à puces, puis applique ce modèle de liste à la sélection.
Set mylt = ListGalleries(wdBulletGallery).ListTemplates(1)
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=mylt
Remarque
Certaines propriétés et méthodes ( Convertir et Ajouter, par exemple) ne fonctionnent pas avec les modèles de liste d’une galerie de listes. Vous pouvez modifier ces modèles de liste, mais vous ne pouvez pas changer leur type de galerie de liste (wdBulletGallery, wdNumberGallery ou wdOutlineNumberGallery).
Pour voir si un modèle de liste d’une galerie de listes contient la mise en forme intégrée dans Word, utilisez la propriété Modified avec l’objet ListGallery. Pour rétablir le format de liste d’origine, utilisez la méthode Réinitialiser pour l’objet ListGallery .
Une fois que vous avez renvoyé un objet ListTemplate, utilisez ListLevels (Index), où Index est un nombre compris entre 1 et 9, pour renvoyer un objet ListLevel. Avec un objet ListLevel, vous avez accès à toutes les propriétés de mise en forme pour le niveau de liste spécifié, tel que Alignment, Font, NumberFormat, NumberPosition, NumberStyle et TrailingCharacter.
Utilisez la méthode Convert pour convertir un modèle de liste de plusieurs niveaux à un seul niveau.
Voir aussi
Référence du modèle objet Word
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.