[ID CS4-CS6] Помогите скриптом "Apply “[this style]” then Next Style, Clear All

[Masia]

Приветствую!

Помогите, пожалуйста, скриптом для реализации сабжа.
В "Ресурсах" есть очень похожий скрипт от Eugenyus, но он без "Clear All".
Как его изменить до нужного мне, ума не хватает.

Спасибо!

 

[Eugenyus]

Как его изменить

Изменил, ресурс обновил.
Прямая ссылка на скачивание новой версии.