наверх
Свободные IT публикации
логин:
пароль:

Использование ActiveX в 1С 8.x

  • Как использовать элементы управления ActiveX?
  • Как сформировать новый договор на основании файла Microsoft Word?
  • Как использовать элементы управления ActiveX?

    Режим = РежимДиалогаВыбораФайла.Открытие; 
    ДиалогФыбораФайла = Новый ДиалогВыбораФайла(Режим); 
    ДиалогФыбораФайла.Фильтр = "Все файлы (все)|*.*"; 
    ДиалогФыбораФайла.Заголовок = "Выберите медиа файл"; 
    Если ДиалогФыбораФайла.Выбрать() Тогда 
    	ПутьКМедиаФайлу = ДиалогФыбораФайла.ПолноеИмяФайла; 
    	// В зависимости от варианта объекта запись полного пути к файлу 
    	// производится либо в свойство FileName, либо в свойство URL. 
    	Попытка 
    		ЭлементыФормы.WMP.FileName = ПутьКМедиаФайлу; 
    	Исключение 
    		ЭлементыФормы.WMP.URL = ПутьКМедиаФайлу; 
    	КонецПопытки; 
    КонецЕсли;

    Как сформировать новый договор на основании файла Microsoft Word?

    Договор = ПолучитьМакет("Договор"); 
    // Получить объект из макета. 
    MSWord = Договор.Получить(); 
    НаименованиеКонтрагента = "ООО Торгуем всем"; 
    Попытка 
    	Документ = MSWord.Application.Documents(1); 
    	Документ.Activate(); 
    	// Получить объект, который будем использовать для поиска и замены. 
    	Замена = Документ.Content.Find; 
    	// Заменить заранее определенные ключевые конструкции на требуемый текст. 
    	Замена.Execute("<НазваниеКомпании>", Ложь, Истина, Ложь, , , 
    	Истина, , Ложь, НаименованиеКонтрагента); 
    	// Далее аналогично для остальных ключевых конструкций. 
    	// Делаем видимым приложение и активизируем его. 
    	MSWord.Application.Visible = Истина; 
    	MSWord.Activate(); 
    Исключение 
    	// Если произойдет ошибка выводятся данные об ошибке и объект закрывается. 
    	Сообщить(ОписаниеОшибки()); 
    	MSWord.Application.Quit(); 
    КонецПопытки;