Форум по VBA, Excel и Word

Как с помощью макроса узнать стиль выделенного фрагмента?

Если у всего выделенного фрагмента один стиль, то стиль можно узнать кодом, который ниже.
Если же в выделенном фрагменте несколько стилей, то код, который ниже, сообщит только стиль первого символа выделенного фрагмента.

Sub Макрос()
    ' Результат выводится в View - Immediate Window.
    Debug.Print Selection.Style
End Sub

Спасибо, мне подошёл ваш код, т.к. у меня в выделенном фрагменте только один стиль.