fannur
Фаннур Маннанов

таб = Новый ТабличныйДокумент;
Таб.Прочитать(ФайлПриемник);

МассивОбластей = Новый Массив;
сч = таб.Области.Количество()-1;
Для Каждого ОбластьМакета из таб.Области Цикл 
   ИмяОбласти = ОбластьМакета.Имя;
   МассивОбластей.Добавить(ИмяОбласти);
   сч = сч-1;

КонецЦикла;


Для Каждого ЭлМассива из МассивОбластей Цикл 
   Если НЕ ЗначениеЗаполнено(ЭлМассива) Тогда 
      Продолжить;
   КонецЕсли;
   обл = таб.ПолучитьОбласть(ЭлМассива);
   Если найти(НРег(ЭлМассива),"строка")=0 Тогда //все области кроме строки таблицы
   
   Для Каждого ЭлДанные из Данные Цикл 
      Попытка
       обл.Параметры[ЭлДанные.ключ] = ЭлДанные.значение;
    Исключение
    КонецПопытки;
    
 КонецЦикла;

Word = ПолучитьCOMОбъект(ИмяФ);//инициализируем COM-объект
         
        Попытка
            Документ = Word.Application.Documents(1);
            // Получить объект, который будем использовать для поиска и замены.
         Для Каждого ЭлементДанных Из Данные Цикл
            Если ТипЗнч(ЭлементДанных.Значение) = Тип("Массив") Тогда
               Продолжить;
            КонецЕсли;
            
         Замена = Документ.Content.Find;//поиск параметра в макете
         wdReplaceAll = "00000002";
         Попытка
         Замена.Execute("{" + ЭлементДанных.Ключ + "}", Ложь, Истина, Ложь, , , Истина, , Ложь, ЭлементДанных.Значение, wdReplaceAll);
      Исключение
      
      КонецПопытки;
      
   КонецЦикла;