Срздал шаблон ActiveDocument, он хранит вордовский шаблон.
Пытаюсь ЗаменитьДанные в шаблоне, программа выдает фатальную ошибку при заполнении некоторыхзначений. причем эти значения строгового типа.
кусок кода:
 Док=КомОбъект.Application.Documents(1);
        Заменить=док.Content.Find;
        Заменить.Execute("Код",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.Код);
        Заменить.Execute("Дата",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.Дата);
        Заменить.Execute("ФИО",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.фио);
        Заменить.Execute("Сумма",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.Сумма);
        Заменить.Execute("СуммаПрописью",Ложь,Истина,ЛОжь,,,Истина,Ложь,ЧислоПрописью(Выборка.Сумма, "Л = ru_RU; ДП = Истина", "рубль, рубля, рублей, м,копейка, копейки, копеек, ж,2") );
        Заменить.Execute("Процент",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.Процент);
        Заменить.Execute("Срок",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.Срок);
        Заменить.Execute("ДатаВозврата",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.ДатаВозврата);
        Заменить.Execute("СуммаПогашения",Ложь,Истина,ЛОжь,,,Истина,Ложь,Формат(Выборка.Сумма+Выборка.Сумма*Выборка.Процент*Выборка.Срок/100,"ЧЦ=10;ЧДЦ=2;ЧРД=."));
        Заменить.Execute("Штраф",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.Штраф);
        Заменить.Execute("ПоднятыйПроцент",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.ПоднятыйПроцент);
    Заменить.Execute("Заемщик",Ложь,Истина,ЛОжь,,,Истина,Ложь,Выборка.фио+" "+Паспорт);
        док.SaveAs(ВременныйФайл);

Помогите уже голову сломал, не могу найти причины

Вродебы нашел ошибку

Вывел документ но заполнил все навсего дно поле из 14 нужных. не понятно!!!

Ребята подскажте? что не так?

Help
??????

Все еще спят?

Почему "Фатальная"? Это как?

Ну простонаписал фатальная ошибка и адрес памити типа 0Х00000

Но этот вопрос я решил
Тут возник другой

Параметры шаблона не заменяються на нужные значения.

Мыслей никаких нет?

Заполняет только самый первый параметр, а отальные не трогает!!! Почему так может быть?

Люди!!!! Помогите!!! 6 час на одной ошибкой бъюсь!!! не вижу решения!!!!

Это я еще в веб ее не тестировал, там червей еще больше наверное


Процедура ЗаменитьВсе(КомОбъект_Application, Параметры)
   
   Попытка
   
       wdReplaceNone = 00000000;
       wdReplaceOne  = 00000001;
       wdReplaceAll  = 00000002;
       
       Selection = КомОбъект_Application.Selection;
       
       Selection.Find.ClearFormatting();
       Selection.Find.Replacement.ClearFormatting();
       
       Selection.Find.Forward = True;
       //Selection.Find.Wrap = wdFindContinue;
       Selection.Find.Format = False;
       Selection.Find.MatchCase = False;
       Selection.Find.MatchWholeWord = False;
       Selection.Find.MatchWildcards = False;
       Selection.Find.MatchSoundsLike = False;
       Selection.Find.MatchAllWordForms = False;

       Для каждого п Из Параметры Цикл
       
           Selection.Find.Text = "{" + п.Ключ + "}";
           Selection.Find.Replacement.Text = п.Значение;
           Selection.Find.Execute(, , , , , , , , , ,wdReplaceAll);
           
       КонецЦикла;
       Selection.Find.Text = "";
       Selection.Find.Replacement.Text = "";
       
       Selection.Find.ClearFormatting();
       Selection.Find.Replacement.ClearFormatting();
   
   Исключение
       Сообщить(ОписаниеОшибки());
   КонецПопытки;
       
КонецПроцедуры


А эта процедура должна выполняться на стороне Сервера как я понимаю!!!

(16) Думаю там где создан КомОбъект.Application

Спасибо за подсказку.
У меня заработало не через Selection, а через Content!!

Всем Спасибо.
Может кому понадобится тест без мелких иголочек -
   //Создаем новый объекта типа Word.Application
   WordApplication = Новый COMОбъект("WORD.Application");
   КомОбъект_Application = WordApplication.Documents.Add("C:\Documents and Settings\TEMP\Рабочий стол\9999\Word.doc");
   Параметры = новый СписокЗначений;
   Параметры.Добавить("WWW", "*****");
   Параметры.Добавить("GGG", "ГГГГГ");
   Параметры.Добавить("VVV", "ВВВВВВВВ");
   
   Попытка
   
      wdReplaceNone = 00000000;
      wdReplaceOne  = 00000001;
      wdReplaceAll  = 00000002;
     
      Selection = КомОбъект_Application.Content;
     
      Selection.Find.ClearFormatting();
      Selection.Find.Replacement.ClearFormatting();
     
      Selection.Find.Forward = True;
      //Selection.Find.Wrap = wdFindContinue;

      Selection.Find.Format = False;
      Selection.Find.MatchCase = False;
      Selection.Find.MatchWholeWord = False;
      Selection.Find.MatchWildcards = False;
      Selection.Find.MatchSoundsLike = False;
      Selection.Find.MatchAllWordForms = False;

       Для каждого п Из Параметры Цикл
     
          Selection.Find.Text = п.Значение;
          Selection.Find.Replacement.Text = п.Представление;
          Selection.Find.Execute(, , , , , , , , , ,wdReplaceAll);
         
       КонецЦикла;
      Selection.Find.Text = "";
      Selection.Find.Replacement.Text = "";
     
      Selection.Find.ClearFormatting();
      Selection.Find.Replacement.ClearFormatting();
   
   Исключение
      Сообщить(ОписаниеОшибки());
   КонецПопытки;

Дата - это не строговогый параметр