ListFormat.ApplyListTemplate (Word)
Applique un ensemble de caractéristiques de mise en forme de liste à l'objet ListFormat spécifié.
ApplyListTemplate (ListTemplate, ContinuePreviousList, ApplyTo, DefaultListBehavior)
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
Arguments
Un argument nommé
ListTemplate (ListTemplate) - Modèle de liste à appliquer.
Optional arguments
Les arguments suivants sont facultatifs
ContinuePreviousList (Boolean) - True pour poursuivre la numérotation à partir de la liste précédente ; False pour commencer une nouvelle liste.
ApplyTo (WdListApplyTo) - La partie de la liste que le modèle de liste doit être appliqué à.
Les valeurs de retour possibles sont wdListApplyToSelection - Sélection, wdListApplyToThisPointForward - Du point d'insertion du curseur à la fin de la liste, wdListApplyToWholeList - Liste entière.
DefaultListBehavior (WdDefaultListBehavior) - Définit une valeur qui indique si Microsoft Word utilise un nouveau format Web pour un meilleur affichage de liste.
Les valeurs de retour possibles sont wdWord10ListBehavior - Utilise la mise en forme compatible avec Microsoft Word 2002, wdWord8ListBehavior - Utilise la mise en forme compatible avec Microsoft Word 97, wdWord9ListBehavior - Utilise la mise en forme Web présentée dans Microsoft Word 2000.