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.
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 List.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| ListTemplate | Obligatoire | ListTemplate | Modèle de liste à appliquer. |
| ContinuerListe précédente | Facultatif | Variant | True pour poursuivre la numérotation à partir de la liste précédente ; False pour commencer une nouvelle liste. |
| Postuler à | Facultatif | Variant | La partie de la liste que le modèle de liste doit être appliqué à. Peut être l’une des constantes WdListApplyTo suivantes : wdListApplyToSelection, wdListApplyToWholeList ou wdListApplyToThisPointForward. |
| DefaultListBehavior | Facultatif | Variant | Définit une valeur qui spécifie si Microsoft Word utilise la nouvelle mise en forme orientée web pour un meilleur affichage de la liste. Peut être l’une des constantes WdDefaultListBehavior suivantes : wdWord8ListBehavior (utiliser une mise en forme compatible avec Microsoft Word 97) ou wdWord9ListBehavior (utiliser une mise en forme orientée web). Pour des raisons de compatibilité, la constante par défaut est wdWord8ListBehavior, mais dans les nouvelles procédures, vous devez utiliser wdWord9ListBehavior pour tirer parti d’une mise en forme orientée web améliorée en ce qui concerne la mise en retrait et les listes à plusieurs niveaux. |
Exemple
Cet exemple définit la variable myRange sur une plage du 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
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.