ListFormat.ListType (Word)

Renvoie le type des listes qui sont contenues dans la plage de l’objet ListFormat spécifié. Les valeurs de retour possibles sont wdListBullet - Liste à puces, wdListListNumOnly - Champs ListNum utilisables dans le corps d'un paragraphe, wdListMixedNumbering - Liste numérique associée, wdListNoNumbering - Liste sans puces, numéros ou niveaux, wdListOutlineNumbering - Liste à plusieurs niveaux, wdListPictureBullet - Liste à puces imagée, wdListSimpleNumbering - Liste numérique simple.

La constante wdListListNumOnly fait référence aux champs LISTNUM, qui sont des champs qui peuvent être ajoutés au texte d’un paragraphe.

Set myList = ActiveDocument.Lists(1) 
If myList.Range.ListFormat.ListType = wdListSimpleNumbering Then 
 myList.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdNumberGallery) _ 
 .ListTemplates(4) 
End If