Имя: Пароль:
1C
1C 7.7
v7: Заполнение полей в Ворд из 1с
,
0 Gal4onok
 
09.10.11
13:48
Подскажите плз, где ошибка в процедуре заполнения:
мWord = СоздатьОбъект("Word.Application");
мNewDoc = мWord.Documents;

мДок = мNewDoc.Add("H:\Ander\чч\ExtForms\Пример.doc", 0, 0, 1);  

мОбъект = мДок.Content;
мИмяФайла="H:\Ander\чч\ExtForms\Пример.doc";
мОбъект.Find.Execute("[ПечДатаДоговора]",0,0,,,,,,,Нрег(СокрЛП(ТекущаяДата())),2);
мWord.Visible = 1;
мДок.SaveAs(мИмяФайла);

Документ открывается, но реквизиты не заполняются.
1 VladZ
 
09.10.11
13:50
Я нечто подобное делал через закладки.
2 Gal4onok
 
09.10.11
13:51
я на инфостарте нашла пример реализации и несколько обработок, но у меня все равно не получается.
3 Gal4onok
 
09.10.11
13:51
обычная форма договора поставки, без таблиц
4 КапЛей
 
09.10.11
13:54
я через дбф как-то заполнял. надо б поискать извращение это будет...
5 Gal4onok
 
09.10.11
13:55
а просто через ворд делал кто-нить?
6 VladZ
 
09.10.11
13:55
(2) Что именно не получается? Пройдись отладчиком, посмотри, что не правильно срабатывает.
7 VladZ
 
09.10.11
14:00
+6 После мWord = СоздатьОбъект("Word.Application");
воткни
мWord.Visible = 1;

чтобы сразу видеть, что происходит.
8 Gal4onok
 
09.10.11
14:02
(7) открывает документ и все..ошибок непишет, и не заполняет
9 Gal4onok
 
09.10.11
14:05
мОбъект.Find.Execute("[ПечДатаДоговора]",0,0,,,,,,,Нрег(СокрЛП(ТекущаяДата())),2)=0, почему то не находит реквизит
10 sanja26
 
09.10.11
14:10
А в Ворде [ПечДатаДоговора] именно так написано или без квадратных скобок?
11 Gal4onok
 
09.10.11
14:18
{ПечДатаДоговора}
12 Cthulhu
 
09.10.11
14:19
мДок.ActiveDocument.Fields(ПечДатаДоговора).Result.Text=Нрег(СокрЛП(ТекущаяДата()));
13 sanja26
 
09.10.11
14:19
А ищешь [ПечДатаДоговора].
14 Gal4onok
 
09.10.11
14:20
(10) спасибо, работает....
15 Gal4onok
 
09.10.11
14:20
я просто блондинка....) спасибо за помощь
16 sanja26
 
09.10.11
14:20
(14) молодец
17 Cthulhu
 
09.10.11
14:20
(12)+: аааблинн, это если есть поле с таким и дентификатором, простите.
(но - а почему бы не сделать такое поле?)
18 sanja26
 
09.10.11
14:25
а вообще в 1с теперь новая фишка - заполнение полей в Шаблоне Ворд прямо из него, не открывая 1с
http://v8.1c.ru/1c_office/integration.htm
19 Gal4onok
 
09.10.11
14:27
спасибо, у меня 7ка
20 Cthulhu
 
09.10.11
14:38
(19): из семерки тоже удобнее (хотя кому как) заполнять поля.
да и по уму логичнее юзать не готовые документы с их правкой и записью под новыми именами, а шаблоны документов.
но то таке, лирика.