Имя: Пароль:
1C
 
Заполнение шаблона в Word из1С Предприятие 7.7
0 bubonic
 
24.05.07
14:45
Понимаю, что тема уже очень избитая, но тем не менее. Возникла необходимость заполнения шаблона сделанного в ворде из 1С 7.7 . Нужно открыть заранее подготовленный шаблон и заменить в нем конструкции типа <Сумма> соответствующими значениями. Открыть шаблон я могу, а вот произвести замену значений не получается. Может кто-нибудь подскажет как это делается?
1 Истина
 
24.05.07
14:47
ActiveDoc.FormFields(НомерПоля).Result=НужныйТекст;
2 Восточный Парень
 
24.05.07
14:50
А мона так

Word = CreateObject("Word.Basic");
Word.FileOpen(Каталог + ИмяФайла);
           
тзСотрудников.ВыбратьСтроки();
Пока тзСотрудников.ПолучитьСтроку() = 1 Цикл
Если Значение = 1 Тогда
   Word.SetFormResult("Адресат", окрЛП(тзСотрудников.Сотрудник.Наименование));
КонецЕсли;
Word.FilePrint();
КонецЦикла;
Word.FileClose();
3 bubonic
 
24.05.07
14:53
(1) не совсем подходит т.к. для этого нужно в шаблон вставлять специальные области. Пожелание пользователей чтобы работала именно замена текста.
4 Ирен
 
24.05.07
14:53
Fnd = Word.ActiveDocument.Range().Find;
Fnd.ClearFormatting();
Fnd.Forward = -1;                      
//Fnd.Execute("<Дата>",,,,,,,,,ДатаПрописью(Договор.ДатаЗаключения),2);
//Fnd.Execute("<НомерДоговора>",,,,,,,,,СокрЛП(Наименование),2);
Fnd.Execute("<Контрагент>",,,,,,,,,Контрагент.ОПФ.Наименование+" "+СокрЛП(Контрагент.ПолнНаименование),2);
Fnd.Execute("<ДолжностьРуководителя>",,,,,,,,,СокрЛП(Контрагент.ДолжностьРуководителя),2);
Fnd.Execute("<Руководитель>",,,,,,,,,СокрЛП(Контрагент.Руководитель),2);
Fnd.Execute("<НашаОрганизация>",,,,,,,,,СокрЛП(Константа.НазваниеОрганизацииДляДоговора),2);  
Word.Visible=1;    
Word.ActiveDocument.Activate();
Word="";
5 bubonic
 
24.05.07
15:06
(4) Большое спасибо!!! Все получилось..
6 Таня Н
 
05.10.07
14:36
Заполняю шаблон сделанный в Word из 1С 7.7. Передаю в текстовое поле "УсловияОплаты" определенный текст. В свойствах текстового поля стоит максимальная длина 2000. Однако, текст длиной более 255 символов не передается, выдается ошибка: Word.SetFormResult("УсловияОплаты",СтрокаУсловийОплаты);      
{Справочник.Конкурс.Форма.Модуль(73)}: Microsoft Word: Слишком длинная строка
Что делать? Помогите!