VBA Word - проверка опций на курсоре

Формулировка задачи:

Уважаемые, хочу на клавишу "Esc" сделать и повесить свою процедуру на закрытие документа.
Как в начале устроить проверку, что на курсоре весит какая-либо опция в готовности применить ее и сделать в начале отмену ее действия, а уже при повторном нажатии по "Esc", если ничего не мешает, тогда выполнить закрытие документа?
Например "Цвет выделения текста" или "Формат по абзацу", что то типа того.

Решение задачи: «VBA Word - проверка опций на курсоре»

textual
                            Листинг программы 
                        
                            ChDir Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Рабочий стол\"