Имя: Пароль:
1C
1С v8
Работа с шаблонами
0 Nashinaushi
 
22.08.11
10:21
Пытаюсь передать данные из 1с ЗУП в шаблон WORD

Процедура СокращениеДоговор()
   
       ПутьКШаблону = мКаталогШаблонов + "\СокрашениеПеревод.dot";
       ФайлШаблона = Новый Файл(ПутьКШаблону);
   
   Если ФайлШаблона.Существует() Тогда
       
       Выборка = СформироватьЗапросДляПечати().Выбрать();
       Выборка.Следующий();
       
       Ворд = Новый COMОбъект("Word.Application");
       Ворд.Documents.Add(ПутьКШаблону);
       Ворд.Visible = Истина;
       
       Ворд.Selection.GoTo(-1, , , "НомерДоговора");
       Ворд.Selection.TypeText(Строка(Выборка.НомерДоговора));
       
       Ворд.Selection.GoTo(-1, , , "ДатаДоговора");
       Ворд.Selection.TypeText(Формат(Выборка.ДатаДоговора, "ДФ=""дд ММММ гггг 'г.' """));
       
       Ворд.Selection.GoTo(-1, , , "ФИО");
       Ворд.Selection.TypeText(Выборка.ФИО);
       
               
       Ворд.Selection.GoTo(-1, , , "Должность");
       Ворд.Selection.TypeText(Выборка.Должность);
       
               
   КонецЕсли;
       
Выдает ошибку {ВнешняяОбработка.ТрудовойДоговор(79)}: Ошибка при вызове метода контекста (GoTo): Произошла исключительная ситуация (Microsoft Word): Данная закладка не существует.
       Ворд.Selection.GoTo(-1, , , "НомерДоговора");
по причине:
Произошла исключительная ситуация (Microsoft Word): Данная закладка не существует.
Не могу понять почему, подскажите пожайлуста
1 mikecool
 
22.08.11
10:26
а если закоментить
       Ворд.Selection.GoTo(-1, , , "НомерДоговора");
       Ворд.Selection.TypeText(Строка(Выборка.НомерДоговора));
на
       Ворд.Selection.GoTo(-1, , , "ДатаДоговора");
       Ворд.Selection.TypeText(Формат(Выборка.ДатаДоговора, "ДФ=""дд ММММ гггг 'г.' """));
ошибка будет такая же?
2 Nashinaushi
 
22.08.11
11:07
все вопрос снимаеться, нашла причину
3 Nashinaushi
 
22.08.11
11:07
всем спасибо