Создание ШК в Word средствами 1С (OLE)

05.04.10

Интеграция - Внешние источники данных

Создание ActiveX BarCode в Word из 1С 8.1 по OLE

Ищет в документе Word "тег" - [~ПометкаДоговор~], соответсвенно если есть, тогда вставляем ШК.

 

Что нужно для работы:

 1CBarCod - "V8.Barcod" (нужно проинcталить, чтобы все это прописалось в Word).

 

текст процедуры:

 

МС = Новый COMОбъект("Word.Application");
Док = МС.Documents;
файл = Док.Add(КаталогВременныхФайлов()+"tmp.doc");
ActDoc=МС.ActiveDocument;
МС.Visible=0;

//Ищем "тег" 
ЕстьПометка = ActDoc.Content.Find.Execute("[~ПометкаДоговор~]");
Если ЕстьПометка = 0 Тогда
      Возврат;
Иначе
 

//Удаляем "тег", теперь он нам не нужен

Поиск = ActDoc.Content.Find;
Поиск.Execute("[~ПометкаДоговор~]",,,,,,,,,"",2);

// вставляем ActivX  
Попытка
   МС.Selection.InlineShapes.AddOLEObject("V8.Barcod.1", "" , False, False);//,"",0,"","");
Исключение
      Сообщить("Не установлена компонента V8.Barcod.1",СтатусСообщения.Важное);
КонецПопытки;


Если ActDoc.InlineShapes.Count > 0 Тогда//на всякий случай проверяем, вставился ли наш ActivX  

//заполняем нужный параметры
      Obj = ActDoc.InlineShapes.Item(0);
      bar = Obj.OleFormat;
      bar.Object.ТипКода = 4;//тип ШК, в данном случае COD128
      bar.Object.Сообщение = Формат(ВыбНоменклатура.Код,"ЧГ=0")+" "+НомерДоговора;
КонецЕсли; 
 
 
 МС.Visible=1;

Может это кому-то будет интересно. 

 

См. также

Перенос данных из Парус 8 в ЗГУ 3

Зарплата Внешние источники данных Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 8 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

84000 руб.

19.08.2020    22460    19    1    

22

Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Обмен между базами 1C Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    9217    9    8    

10

Перенос данных из Парус 7.хх в ЗГУ ред.3

Внешние источники данных Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 7.хх учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

24000 руб.

24.04.2017    48712    96    163    

86

Перенос начальных остатков из Парус 7.71 в БГУ

Внешние источники данных Взаиморасчеты Учет ОС и НМА Логистика, склад и ТМЦ Бюджетный учет Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 2.0 1С:Бухгалтерия государственного учреждения Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Перенос словарей и начальных остатков из ПП Парус-Бухгалтерия Бюджет 7.71 в 1Сv8 БГУ2. Заполнение словарей и документов по вводу начальных остатков. Не требуется установка ПП Парус7. Возможна дозагрузка. Позволит автоматически и наиболее полно ввести данные в программу для начала работы. 

15600 руб.

08.12.2011    81582    128    123    

147

Перенос данных из Парус 10 (Торнадо) в ЗГУ ред.3 через Excel

Внешние источники данных Загрузка и выгрузка в Excel Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате из Парус 10(Торнадо) учреждений через файлы Excel в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ). В принципе, обработка может быть использована для загрузки из файлов Excel, полученных из любых информационных систем.

24000 руб.

16.11.2018    30006    20    31    

21

Загрузка спецификаций в УНФ из системы Базис-мебельщик

Производство готовой продукции (работ, услуг) Внешние источники данных Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 Лесное и деревообрабатывающее хозяйство Россия Управленческий учет Платные (руб)

Обработка предназначена для загрузки файлов, выгруженных из системы Базис-мебельщик, в справочник "Спецификации" для последующих процессов учета и диспетчирования полуфабрикатов и изделий.

7200 руб.

24.06.2021    19134    52    50    

29
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. sss999 48 07.04.10 12:22 Сейчас в теме
написали бы для чего это нужно и что это такое а то как то непонятно
7. wondermaker 12.10.12 05:01 Сейчас в теме
Тестировал на Word 2010
1) такой код на 100% не сработал - ставило изображение в начало текста. Дописал вставку в место по закладке
RG = ActDoc.Bookmarks("ШтрихКодДокумента").Range;
МС.Selection.InlineShapes.AddOLEObject("V8.Barcod", "" , False, False,,,, RG);

2) в коде пишем Obj = ActDoc.InlineShapes.Item(1); // вместо нуля

3) почему-то размер изображения меньше положенного и штрихкод не отображается
Пока побороть не получилось - никаким кодом размер не меняется :(

4) минус в том, что вставляется как OLE, а хотелось бы изображением
McLer; servicetrend; +2 Ответить
2. PointAnd 46 07.04.10 13:43 Сейчас в теме
Что не понятного?
Эта процедура выполняет замену "тега" на ActiveX в WORD, а уж где это применять дело личное каждого.
Я например это применяю при печати договора из шаблона, т.к. у каждого договора есть штрих код для идентификации.
3. Aragorn 03.08.10 12:10 Сейчас в теме
word 2007 и window 7 пишет что данный объект не обнаружен в системе. Хотя из 8.1 обрабатывает без проблем.
4. PointAnd 46 03.08.10 16:15 Сейчас в теме
На word 2007 и window 7 не тестировалось. Может там есть свои заморочки.
5. pizhenkov 213 24.01.11 13:53 Сейчас в теме
А что за компанента используется и как ее проинсталить в ворд?
6. Kesr 08.11.11 16:02 Сейчас в теме
стоит протестить в word 2010
Оставьте свое сообщение