15.01.2026

Работа с Microsoft Office и OpenOffice

Работа с Microsoft Office и OpenOffice

Объяснить мне сразу трудно — поэтому давайте "на пальцах" Свежий простой пример : вопрос " Ексель.Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";"...
Для 8.х в нижеследующем коде замените СоздатьОбъект( на Новый COMОбъект! //Пример 1: Процедура Сформировать() Екскел=СоздатьОбъект("Excel.Application"); Книга=Екскел.WorkBooks.Open("C:\Ищем.xls"); Книга.Worksheets(1).Unprotect...
Попытка XLSОбъектОсновной = Новый COMОбъект("Excel.Application"); Исключение Предупреждение("Невозможно загрузить MS EXCEL !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");...
Перем ОбъектыКонфы; Перем СтруктКонфы; Процедура ВыгрузитьВWord() Попытка Word = Новый COMОбъект("Word.Application"); Исключение Сообщить("Не удалось открыть Word"); Возврат;...
Процедура ПечатьВWord() wrd=создатьобъект("word.application"); wrd.documents.add("D:\doc.dot"); wrd.visible=1; wrd.documents(1).tables(1).cell(1,2).range.text = НомерДок; wrd.documents(1).tables(1).cell(1,4).range.text = ДатаДок; wrd.documents(1).tables(1).cell(2,2).range.text = Склад.Наименование; wrd.documents(1).tables(1).cell(3,2).range.text = Получатель.Наименование;...
Процедура ВывестиСписокЭлементовСправочникаВWord() спр1=создатьобъект("справочник.сотрудники"); спр1.ИспользоватьДату(ТекущаяДата()); Сообщить( спр1.НайтиПоНаименованию("Администрация",0,1)); Сообщить(спр1.ПолучитьАтрибут("Наименование")); сотр=создатьобъект("справочник.сотрудники"); сотр.ИспользоватьДату(ТекущаяДата()); сотр.ИспользоватьРодителя(спр1); отчет=создатьобъект("word.application"); отчет.visible = 1; отчет.documents.add("d:\spisok.dot"); отчет.documents(1).tables(1).cell(1,2).range.text= спр1.ПолучитьАтрибут("Наименование");...