// Автоматическая проверка текущей обработки в конфигураторе 1С 8 при нажатии F7
// Для работы необходимо запустить отдельный процесс Defy и заменить ниже по тексту полный путь к этому процессу
Стр = Окна.Заголовок();
// Сообщить(Стр);
есть       = 0;
расширение = "epf";
Если (Строки.Найти(Стр, расширение)>0) Тогда
    есть = 1;
Иначе
    расширение = "erf";
    Если (Строки.Найти(Стр, расширение)>0) Тогда
        есть = 1;
    Конец;
Конец;
Если (есть=0) Тогда
    // если не определили путь к файлу в конфигураторе,
    // очистим сообщения и проверим модуль
    Нажать(Клавиши.Кт|Клавиши.Ат|Клавиши.Я);
    Нажать(Клавиши.Кт|Клавиши.F7);
    Возврат;
Конец;
кон = Строки.Найти(Стр, расширение);
нач = кон               - 1;
Пока (нач>1) Цикл
    Если (Строки.Подстрока(Стр, нач, 1)=":") Тогда
        нач = нач - 1;
        Прервать;
    Конец;
    нач = нач - 1;
Конец;
ПутьКФайлу = Строки.Подстрока(Стр, нач, кон-нач)+ расширение;
// Сообщить(ПутьКФайлу);
Нажать(Клавиши.Кт|Клавиши.Ы);
Нажать(Клавиши.Кт|Клавиши.F7);
Подождать(1);
Буфер.Текст = ПутьКФайлу; // скопируем путь к файлу в буфер
// запустим анализ в другой программе
Модули.Запустить("C:\Programs\Defy\Defy.exe", "Анализ внешних модулей 1С", "Проверить", ПутьКФайлу);