my 1C. Полезная информация.

Процедура Сформировать()
     Попытка
          W=СоздатьОбъект("Word.Application");
     Исключение
          Возврат;
     КонецПопытки;
     W.Documents.Add();
     i = W.VBE.ActiveVBProject.VBComponents.Count();
     W.VBE.ActiveVBProject.VBComponents.Add (1);
     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.InsertLines (1, "Sub Golif()");
     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.InsertLines (2, "MsgBox " + """" + "Работает" + """");
     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.InsertLines (3, "End Sub");
     W.Application.Run ("Golif");
     W="";
КонецПроцедуры
<сообщил Андрей Бертыш>
Примечание: если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки