Имя: Пароль:
1C
 
Заполнение MS word шаблонов из 1с8.1
0 perec1982
 
04.09.08
10:32
Подскажите пожалуйста где можно найти примеры работы с шаблонами MS word? Необходимо заполнять договора (заявки клиентов) из док-та в шаблон MS word. Заранее спасибо.
1 lexa
 
04.09.08
10:34
2 ne6o
 
04.09.08
10:36
Попытка
Word=Новый COMОбъект("Word.Application");                Документ=Word.Application.Documents.Open(ИмяФайла);                    Word.Application.Documents.Open(ИмяФайла);

Если Документ.Bookmarks.Exists(ИмяЗакладки) Тогда
 Документ.Bookmarks(ИмяЗакладки).Range.Text=Значение;
КонецЕсли;
Исключение
 Сообщить(ОписаниеОшибки());
КонецПопытки;
3 DDD2006
 
04.09.08
10:52
Делалал в 8.0. так

   Шаблон=СокрЛП(Константы.ЗаявлениеЮрЛица.Получить());
       Попытка
           Выпуск=Новый COMОбъект("Word.Application");//ПолучитьCOMОбъект("","WORD.Application")
       Исключение
           Сообщить(ОписаниеОшибки(),"!!!");
           Сообщить("Возможно, MS Word не установлен на этом компьютере.");
           Возврат;
       КонецПопытки;
       ДокВыпуск = Выпуск.Documents.Add(Шаблон,False,0);
       Выпуск.Visible=True;
       //З 3
       ДокВыпуск.Variables.Item("З_3").Value=?(Куда.Пустая()," ",СокрЛП(Куда.Наименование));
       Если Владелец.Владельцы.Количество() = 1 Тогда
           //ИНН, КПП, ОГРН
           Сноска = Владелец.Владельцы.Получить(0).Владелец;
           
           ДокВыпуск.Variables.Item("ФЛ11Adress").Value=ПолучитьАктивнуюВставку2("ФЛАК",Владелец.Владельцы.Получить(0).Владелец);
4 perec1982
 
05.09.08
05:16
Спасибо получается. Но ест ьодна проблема, как заполнять таблицы?
5 perec1982
 
05.09.08
06:28
Есть интерестная обработка которая помогла http://itland.ru/forum/index.php?showtopic=2084&hl=activedocument. Надеюсь будет вам пригодится.