Граждане, никто не знает, как можно назначить горячие клавиши кнопкам в вордовской панели Промта? В самой проге разработчики это предусмотрели, а вот для работы в Ворде почему-то забыли... Однако при активной работе это весьма актуально, поскольку мышом в кнопь "Перевести текущий абзац" (а именно она оказывается наиболее актуальной) не натыкаешься...
Может быть, есть какой-нть вариант поколдовать с промтовским шаблоном? Вот только какой...

Большущее спасибо, Николай!
Ваш код сработал, а новую кнопку для привязки даже не пришлось делать - просто через Сервис -> Настройка -> Клавиатура назначил хот кей этому макросу.
Единственно, по ходу возникла еще одна необходимость переведенный фрагмент (он оказывается после перевода выделенным) вырезать и перенести на 2 строки вниз. Я добавил к Вашему коду 3 строчки, но Промт такой макрос исполнять отказывается, всячески ругаясь. Полагаю, дело не в Промте, а в моей криворукости.
Selection.MoveUp Unit:=wdLine, Count:=2
Application.CommandBars.Item("PROMT6 SmarTool").Controls("Перевести Парагра&ф").Execute
Selection.Cut
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.PasteAndFormat (wdPasteDefault)
End Sub
Не подскажете, что я тут не так сделал?
Заранее спасибо!

Точно! Спасибо большое, Вы мне очень помогли!