Méthode ListFormat.ApplyListTemplate (Word)
Applique un ensemble de caractéristiques de mise en forme de liste à l'objet ListFormat spécifié.
Syntaxe
expression. ApplyListTemplate( _ListTemplate_ , _ContinuePreviousList_ , _ApplyTo_ , _DefaultListBehavior_ )
expression Obligatoire. 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 | La partie de la liste que le modèle de liste doit être appliqué à. Peut être une des constantes WdListApplyTo suivantes : wdListSelection, wdListWholeList ou wdListThisPointForward. |
| 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, que vous devez utiliser wdWord9ListBehavior pour tirer parti des orientée Web mise en forme améliorée par rapport à la mise en retrait et multiniveau répertorie. |
Exemple
Cet exemple montre comment affecter une plage du document actif à la variable myRange, puis vérifier si cette plage se présente sous 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
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.