Document.Lists (Word)

Renvoie une collection lists qui contient toutes les listes mises en forme dans le document spécifié.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

Selection.Range.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2) 
MsgBox "This document has " & ActiveDocument.Lists.Count _ 
 & " lists."