ListFormat.ListType (Word)

Retorna o tipo de listas que estão contidas no intervalo do objeto ListFormat especificado. Somente leitura WdListType. Os valores de retorno possíveis são wdListBullet - Lista com marcadores, wdListListNumOnly - Os campos ListNum que podem ser utilizados no corpo de um parágrafo, wdListMixedNumbering - Lista numérica mista, wdListNoNumbering - Lista sem marcadores, numeração ou contorno, wdListOutlineNumbering - Lista com contorno, wdListPictureBullet - Lista com marcador de imagem, wdListSimpleNumbering - Lista numérica simples.

A constante wdListListNumOnly refere-se a campos LISTNUM, que são campos que podem ser adicionados dentro do texto de um parágrafo.

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