Помогите пожалуйста ускорить работу кода. Конфигурация: Зарплата и Управление Персоналом, редакция 2.5 (2.5.130.2), Платформа 1С:Предприятие 8.3 (8.3.10.2580)

в этой процедуре в первой строке Замена.Execute кол-во 3990 время 091.44%

Процедура ЗаполнитьПараметры(Замена, НаименованиеПараметра, СтрокаКЗаполнению)
    
    Стр    = СтрокаКЗаполнению;
    
    Для Сч = 1 По 114 Цикл
        
        Попытка
            Замена.Execute(НаименованиеПараметра + Сч,     Ложь, Истина, Ложь, , , Истина, , Ложь, Лев(Стр,1), 2);

        Исключение
            Замена.Execute(НаименованиеПараметра + Сч,     Ложь, Истина, Ложь, , , Истина, , Ложь, "", 2);
        КонецПопытки;
        
        Стр    = Сред(Стр,2);
        
    КонецЦикла;
        
КонецПроцедуры

(0) А почему 114?

(0) Чем помочь? Отсюда не видно что есть "Замена".

попробуте поменять
Для Сч = 1 По 114 Цикл
нп
Для Сч = 1 По 4 Цикл

Замена    = Документ.Content.Find;

код писал не я так что почему 114 еще не знаю.

А ты интриган.

(4) а Документ наверно это СтрПрФр.ГрБрМР?

Не надо ничего ускорять. Программа должна работать солидно, мигая лампочками, иначе уважать не будут.

потому что всего 114 параметров.
Явно нужно думать чтобы не все номера заменять, а только те что есть.
Например при записи макета искать номер максимального параметра

(5) Ты лучше расскажи, как так получилось что тебе пришлось с этим разбираться?

ТабДокумент = ПолучитьМакет("МакетWord");
    MSWord         = ТабДокумент.Получить();
    Документ    = MSWord.Application.Documents(1);
    Документ.Activate();
    
    Selection    = MSWord.Application.Selection;
    
    Selection.Expand(6); //WholeStory;
    Selection.Copy();
    //Документ.Content.Copy();
    
    Замена    = Документ.Content.Find;

(9) А я так понял из (0), что он 114 раз один и тот же параметр заполняет.

(12) побуквенно.
Скорее всего это типо фамилии в клеточках

(0) 114 параметров в печатной форме? я не верю...
вдруг там есть повторяющиеся, так их можно все подменить одним вызовом.

+(13) А не, не заметил +Сч. Всё-таки разные :))

(13) "Скорее всего это типо фамилии в клеточках" - Похоже.

Проанализируй в каком случае Лев(Стр,1) вызывает ошибку, и обрабатывай отдельно условием, а не повторным вызовом ком объекта.

у него есть строка. в строке(очевидно) есть некий символ параметр и некий символ разделитель.(это очевидно из того что Лев(Стр,1) это данные заполнения параметра, а "Стр    = Сред(Стр,2);" обрезает строку) Потому я бы не парился, а для начала бы сделал стрРазделить и получил бы массив параметров из строки, а потом бы обращался к параметру по индексу.

можно цикл переделать на стрдлина()

%20-30 можно отыграть

(10) нужно перенести из зуп 8.2 в зуп 8.3 варианты есть но они достаточно проблемные. (16) ну да фамилии адреса папортные данные и т.д. (18) спс попробуем сделать так.

может на 1сные формы переделать?
Все-таки в клеточках не очень для ворда

(0) Переделай на HTML макет.

(22) да думаю буду переделывать макет добро дали.

(20) в офисе столько возможностей. разве нельзя сделать что бы  переменная заполнялась одной строкой , а выглядела как по клеточкам? зачем эта аналогия с 1с -м mxl?

(23) Реально работы меньше, чем оптимизировать (если из того же Word'а макет сохранить в HTML), зато потом ни Word не нужен, ни COM, и вообще в браузере все видно.

Всем большое спасибо,область работы понятна,а то даже не знал откуда начинать.

вот это тоже

Стр    = Сред(Стр,2)

если там строка в миллион символов, то 114 раз эта фигня запускается.

(24) И как же так сделать?

(25) я правильно понял что можно просто открыть Word и сохранить в формате html?

(29) Да. Код будет жутко неоптимальный, но чаще всего весьма похожий на оригинал.

html не умеет по страницам бить корректно

Судя по коду, там вообще на шаблоне 114 параметров и все заполняется по одному. Лучше сделать поля, а потом в поля значения вставлять.

(32) судя по макету их там гораздо больше,114 это максимальное количество одного параметра такого как АдресПрописка1-АдресПрописка114 остальных параметров гдето по 70