Méthode ListFormat.ApplyListTemplateWithLevel (Word)

  • Article

Applique un ensemble de caractéristiques de mise en forme de liste, éventuellement pour un niveau spécifié.

Syntaxe

expression. ApplyListTemplateWithLevel( _ListTemplate_ , _ContinuePreviousList_ , _ApplyTo_ , _DefaultListBehavior_ , _ApplyLevel_ )

Expression Variable qui représente un objet « ListFormat ».

Parameters

Nom Requis/Facultatif Type de données Description
ListTemplate Obligatoire ListTemplate Modèle de liste à appliquer.
ContinuePreviousList Facultatif Variant True pour poursuivre la numérotation à partir de la liste précédente ; False pour commencer une nouvelle liste.
Appliquer à Facultatif Variant L'une des constantes WdListApplyTo qui spécifie la portion de la liste à laquelle le modèle de liste sera appliqué.
DefaultListBehavior Facultatif Variant Définit une valeur qui indique si Microsoft Word utilise un nouveau format Web pour un meilleur affichage de liste. Peut être l'une des constantes WdDefaultListBehavior suivantes : wdWord8ListBehavior (utilisez la mise en forme compatible avec Microsoft Word 97) ou wdWord9ListBehavior (utilisation orientée Web la mise en forme). Pour des raisons de compatibilité, la constante par défaut est wdWord8ListBehavior, mais pour les nouvelles procédures, vous devez utiliser wdWord9ListBehavior pour tirer parti des orientée Web mise en forme améliorée pour la mise en retrait et listes de plusieurs niveaux.
ApplyLevel Facultatif Variant Niveau auquel le modèle de liste doit être appliqué.

Exemple

L’exemple suivant définit la variable myRange sur une plage dans le document actif, puis vérifie si la plage a une mise en forme de liste. Si tel n'est pas le cas, le quatrième modèle de liste numérotée de type plan est appliqué à la plage.

Set myDoc = ActiveDocument 
Set myRange = myDoc.Range( _ 
 Start:= myDoc.Paragraphs(3).Range.Start, _ 
 End:=myDoc.Paragraphs(6).Range.End) 
If myRange.ListFormat.ListType = wdListNoNumbering Then 
 myRange.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdOutlineNumberGallery) _ 
 .ListTemplates(4) 
End If

Voir aussi

Objet ListFormat

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.