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(Формат(Выборка.ДатаДоговора, "ДФ=""дд ММММ гггг 'г.' """));
ошибка будет такая же?
|
|