[Iska]

не ориентируюсь в названиях... стили те что находятся на главное вкладке в подразделе стили. »

Код:

Sub ShowStyles()
    Dim arrStyleType(4) As String
    Dim objStyle As Style
    
    arrStyleType(wdStyleTypeCharacter) = "Character"
    arrStyleType(wdStyleTypeList) = "List"
    arrStyleType(wdStyleTypeParagraph) = "Paragraph"
    arrStyleType(wdStyleTypeTable) = "Table"
    
    Debug.Print String(79, "=")
    Debug.Print Left("Название стиля" & Space(30), 30), "Встроенный", "Тип стиля"
    Debug.Print String(79, "=")
    
    For Each objStyle In ActiveDocument.Styles
        Debug.Print Left("[" & objStyle.NameLocal & "]" & Space(30), 30), IIf(objStyle.BuiltIn, "+", " "), arrStyleType(objStyle.Type)
    Next
    
    Debug.Print String(79, "=")
End Sub

После запуска и исполнения проццедуры нажмите Ctrl-G, дабы открыть окно «Immediate» и посмотреть на результат.