Имя: Пароль:
1C
 
Создание шаблонов Word в 1C
0 FoxBor
 
29.05.08
17:16
Всем привет.
Есть такая задача..
В 1С создается документ, на его основании делается печатная форма в Word. Эта печатная форма делается с помощью шаблона.
Проблема в следующем: в зависимости от определенного условия в печатной форме нужно выводить галочку. Подскажите пожалуйста, каким образом это можно реализовать (т.е. чтобы при опрделенном условии в документе 1С проставлялась галочке в печатной форме Word.
Заранее спасибо..
1 Fragster
 
гуру
29.05.08
17:21
есть символ с галочкой
2 FoxBor
 
29.05.08
17:29
Т.е. это не обязательно может быть галочка. Например квадратик закрашенный, квадратик с крестиком.
Символ есть с галочкой. Только он выводится в шрифте Wingdings. Если задать такой шрифт в Ворде для переменной, то при открытии он напечатает закорючки и саму переменную не увидит. Может можно каким-то образом задавать шрифт программно??..
3 ДенисЧ
 
29.05.08
17:34
А если поставить галочку, выделить её и присвоить шрифт SLeection'у ?
4 Nordok
 
29.05.08
17:39
Начинаешь макрос, делаешь что надо, смотришьв  макросе как это сделать программно...
5 FoxBor
 
29.05.08
17:41
ДинисЧ, поставить галочку, выделить ее и присвоить шрифт в Ворде можно, но это все вручную. А мне нужно, чтобы эта галочка появлялась сразу при открытии, если условие выполнено, а если не выполнено то и галочки быть не должно. Т.е. мне нужно программным путем добиться появлени галочки, а не вручную...
6 ДенисЧ
 
29.05.08
17:42
А ка ты вообще этот шалон заполняешь?
7 FoxBor
 
29.05.08
17:45
Word = СоздатьОбъект("Word.Application");
   Word.Visible = 0;
   Word.Documents.Open(тФаил,,-1);
   
   Fnd = Word.ActiveDocument.Range().Find;
   Fnd.ClearFormatting();
   Fnd.Forward = -1;
   
   Для Счетчик = 1 По СписокРеквизитов.РазмерСписка ( ) Цикл
                                           
       ИдШаблона = "";
       ЗначениеШаблона = СписокРеквизитов.ПолучитьЗначение ( Счетчик, ИдШаблона );
       Fnd.Execute ( "<" + ИдШаблона + ">",,,,,,,,, СокрЛП ( ЗначениеШаблона ),    2 );
       
   КонецЦикла;
   
   Word.Visible = -1;    
   Word.Activate();
8 ДенисЧ
 
29.05.08
17:46
ЗНачит, для галочки нужно тоже сделать такой же шаблон, как и для других значений. ЧЕм она отличается от простого текста?
9 FoxBor
 
29.05.08
17:47
Вот так. Только сначала определяю список соответствий переменных в 1С и в Ворде
Например: СписокРеквизитов.ДобавитьЗначение ( МестоДоговора,"МестоДоговора");
10 FoxBor
 
29.05.08
17:49
Галочки в в простом тексте нет. Она есть в определенном шрифте в Ворде. Т.е. в 1с я не могу сразу указать эту галочку,как остальные переменные..
11 ДенисЧ
 
29.05.08
17:55
НУблин... В шаблоне для этого места задай нужный шрифт. ПОсмотри , какому символу соответствует галка в том шрифте. Этот символ и задвай.
12 Nordok
 
29.05.08
17:57
скажите диджею я просто куею
реально куею скажите диджею
менты суки мутят на входе подлянку
диджей шли всех накуй крути мля шарманку :))
13 FoxBor
 
29.05.08
18:08
:) ДенисЧ, уже пробовал так. Если в шаблоне для этого места задать другой шрифт, то он вообще не увидит эту переменную с нужным нам символом. В этом то и вся проблем.
14 FoxBor
 
29.05.08
18:47
Может у кого еще идеи будут, как это можно реализовать?
15 FoxBor
 
30.05.08
11:02
Ребята, очень нужно выводить галочку в Ворде. Кто-нибудь может помочь?
16 dk
 
30.05.08
11:11
(15) Определись уже что такое "нужно выводить галочку в Ворде"?
просто вставить "V" или "Х" не пойдет?
есть еще крыжик для форм.
17 у лю 427
 
30.05.08
11:20
$56 и полетим
18 у лю 427
 
30.05.08
11:23
а за добавление этой хни в бзню - по морде...
19 FoxBor
 
30.05.08
11:23
(16) Просто вставить "V" или "Х" конечно можно, но смотрится не очень красиво, а документ серьезный. Я имею ввиду галочку в квадратике, как есть символ в шрифте Wingdings.
А про крыжик для форм я ничего не знаю. Если можно поподробнее пожалуйста..
20 dk
 
30.05.08
11:31
(19) открой Вид - Панели инструментов - Формы
Там есть галка
21 FoxBor
 
30.05.08
11:35
Нет, мне не для формы диалога нужно, а именно для печатной формы в Ворде..
22 dk
 
30.05.08
11:36
вставить можно и на печ. форму
23 dk
 
30.05.08
12:28
короче можно кинуть флажок на форму и потом
   Set m1 = ActiveDocument.FormFields.Item(1).CheckBox
   m1.Value = Not m1.Value