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