[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» и посмотреть на результат.

[Pozia]

Iska, вот первый ваш скрипт удалял все стили, то что мне нужно. Этот ничего не удаляет. И по Ctrl-G я не понимаю что смотреть? Выскакивает Найти и заменить.

[Iska]

Этот ничего не удаляет. »

Pozia, он не удаляет. Он показывает все стили активного документа, встроенные ли они, або пользовательские, а также их тип. Это был ответ на Ваш вопрос:

не ориентируюсь в названиях... »

дабы Вы получили представление о наличествующих в документе стилях (стили — это очень мощный инструмент Word'а).

И по Ctrl-G я не понимаю что смотреть? Выскакивает Найти и заменить. »

Не там нажимаете , коллега: Immediate Window Command (View Menu). Нажимать нужно, находясь в Редакторе VBA.

[Pozia]

стили — это очень мощный инструмент Word'а »

вот это я понял недавно и сейчас разбираюсь и копаюсь.