Style.Type (Word)

Returns the style type. Possible return values are wdStyleTypeCharacter - Body character style, wdStyleTypeLinked, wdStyleTypeList - List style, wdStyleTypeParagraph - Paragraph style, wdStyleTypeParagraphOnly, wdStyleTypeTable - Table style.

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