Style.Type (Word)

Retorna o tipo de estilo. Somente leitura WdStyleType. Os valores de retorno possíveis são wdStyleTypeCharacter - Estilo do caractere do corpo, wdStyleTypeLinked, wdStyleTypeList - Estilo de lista, wdStyleTypeParagraph - Estilo de parágrafo, wdStyleTypeParagraphOnly, wdStyleTypeTable - Estilo de tabela.

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