ListFormat.ListType (Word)

Devuelve el tipo de listas que se encuentran en el intervalo del objeto ListFormat especificado. Posibles valores de retorno son wdListBullet - Lista con viñetas, wdListListNumOnly - Campos ListNum que se pueden usar en el cuerpo de un párrafo, wdListMixedNumbering - Lista numerada mixta, wdListNoNumbering - Lista sin viñetas, números ni estilo de esquema, wdListOutlineNumbering - Lista de esquema, wdListPictureBullet - Lista con viñetas de imagen, wdListSimpleNumbering - Lista numerada sencilla.

La constante wdListListNumOnly hace referencia a campos LISTNUM, que son campos que pueden agregarse dentro del texto de un párrafo.

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