Увеличение номера документов в конфигураторе 1С 8
// Автоматически увеличиваем номера у первых 10 документов на четыре символа в открытой конфигурации 1С
// Для работы необходимо открыть одну конфигурацию и спозиционироваться на первом документе
// и обязательно подкрепить/открепить окно с самой конфигурацией(иначе не срабатывает клавиша Отмена в скрипте)
// и запустить данный скрипт(поставить курсор в любом месте скрипта и нажать F9)
// во время работы скрипта лучше не нагружать компьютер другими процессами
КлассОкна = "V8TopLevelFrame";
Если (Окна.Есть(, КлассОкна)=0) Тогда
Сообщить("Нет открытой 1С");
Возврат;
Конец;
Клавиши.Задержка = 100; // задержка при имитации нажатий в миллисекундах, для наглядности можно увеличить
Окна.Активизировать(, КлассОкна);
Для к = 1 По 10 Цикл // здесь задаем количество обрабатываемых документов
Нажать(Клавиши.Ат|Клавиши.Ввод); // вызываем свойства документа
Нажать(Клавиши.Вниз, 8); // переходим на поле с длиной номера
Нажать(Клавиши.Кт|Клавиши.С); // копируем в буфер обмена
Подождать(1); // ждем одну секунду, чтобы прошли все события связанные с буфером обмена
Сообщить(к, Буфер.Текст);
А = Числа.Число(Буфер.Текст);
Если (А=0) Тогда // что-то не так, выходим
Сообщить("В буфере обмена не число!");
Возврат;
Конец;
А = А + 4; // здесь задаем на сколько знаков надо увеличить номер
Ввести(Строки.Строка(А)); // вводим новое значение
Нажать(Клавиши.Вправо);
Нажать(Клавиши.Ввод);
Подождать(1);
Нажать(Клавиши.Отмена); // возвращаемся к списку документов, к основному окну конфигурации
Нажать(Клавиши.Вниз);
Конец;
Сообщить("Готово");