Style.Type (Word)

Devuelve el tipo de estilo. Posibles valores de retorno son wdStyleTypeCharacter - Estilo de carácter de texto independiente, wdStyleTypeLinked, wdStyleTypeList - Estilo de lista, wdStyleTypeParagraph - Estilo de párrafo, wdStyleTypeParagraphOnly, wdStyleTypeTable - Estilo de tabla.

If ActiveDocument.Styles("SubTitle").Type = _ 
 wdStyleTypeParagraph Then 
 MsgBox "Paragraph style" 
ElseIf ActiveDocument.Styles("SubTitle").Type = _ 
 wdStyleTypeCharacter Then 
 MsgBox "Character style" 
End If