тестовая статья (собственно редактирование)Проба форматирования | | Автор статьи: gr13 | Редакторы: Волшебник, Asmody, Гений 1С, Nirvana, Garry1010, vs7719, kolja24, 13_Mult, Фрэнки, sandal_r, Sersh, new_hope, Web00001, Peltik, Последняя редакция №10 от 04.03.05 | История URL: http://kb.mista.ru/article.php?id=27 | |
жирный
курсив
Заголовок3
Заголовок4
Заголовок5
просто текст
Цитата
Процедура Сформировать()
Попытка
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="";
КонецПроцедуры
Ненумерованный список
Нумерованный список
- Пункт 1
- Пункт 2
- Пункт 2.1
- Пункт 2.2
- Пункт 3
|