Range.Style (Word)

Devuelve o establece el estilo para el objeto especificado.

Para establecer esta propiedad, especifique el nombre local del estilo, un número entero, una constante WdBuiltinStyle o un objeto Object que representa el estilo.

For Each c in Selection.Characters 
 MsgBox c.Style 
Next c