Объявление переменной из выделенного текста

Как пользоваться: 1. Выделяем текст. 2. Нажимаем Ctrl+Alt+V. 3. Вводим имя переменной. 4. Кликаем "ОК"

//@script_name GenerateVariable
//@script_display_name Объявление переменной
//@script_description Скрипт объявляет из выделенного текста переменную
//@script_author alonehobo
//@script_developer_url https://turboconf.ru
//@script_hotkey Control+Alt+V
//@retain_clipboard 1
//@enterprise_mode 1
//@hide_actions 1
//@turbomenu 1
//@turbobutton 1

Перем ТурбоКонф;
Перем ИмяПеременной;
Перем ЗаменяемыйКод;

Процедура ОбработчикВводаЗначения(Значение, Отказ) Экспорт

	Если НЕ Отказ Тогда
		ИмяПеременной = Значение;

		ТурбоКонф.ВставитьТекст(ИмяПеременной);

		ТурбоКонф.Key(Keys.Home);
		ТурбоКонф.Key(Keys.Enter);
		ТурбоКонф.Key(Keys.Up);

		ТурбоКонф.ВставитьТекст(ИмяПеременной + " = " + ЗаменяемыйКод + ";");
	КонецЕсли;
	
КонецПроцедуры

ТурбоКонф = Новый ТурбоКонф;

Поз = 0;
ЗаменяемыйКод = "";
Текст = ТурбоКонф.ПолучитьТекстМодуля(ЗаменяемыйКод, Поз);

Форма = Новый ФормаВводаЗначения;
Форма.УстановитьДействие(ЭтотОбъект, "ОбработчикВводаЗначения");
Форма.Заголовок = "Объявление переменной";
Форма.Текст = "Имя переменной";
Форма.Значение = "Переменная1";
Форма.Показать();