Процедура ПечатьВ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 = Получатель.Наименование;...
Работа с Microsoft Office и OpenOffice
Работа с Microsoft Office и OpenOffice
// Проверка орфоргафии переданного текста с помощью средств MS Word // Параметры // <Текст> – <Строка> –...
oWord=СоздатьОбъект("Word.Application"); oWord.WindowState = 1; oWord.Height = 0; oWord.Width = 0; myopendial = oWord.FileDialog(3); myopendial.AllowMultiSelect = -1; myopendial.Title...
Процедура ВывестиСписокЭлементовСправочникаВ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.ПолучитьАтрибут("Наименование");...
Для заключения договоров с контрагентами разработан типовой договор (шаблон). При его оформлении (для реального контрагента) в определенные...
// Процедура выгружает из указанного справочника данные в режиме экспорта в файл в формате Microsoft Excel //...
Копирование данных из одного созданного экселя в другой и открытие excel (с сохранением шрифта, рамки положения текста)...
Пошаговый рабочий алгоритм выгрузки в EXCEL на примере выгрузки отчетов производства за смену(Автор статьи: Funny): (1) Нарисовать...
Замечание: В Excel разделителем дробной части считается символ ",". Поэтому перед сохранением таблицы 1С в формате Excel...
ДокExcel = Новый COMОбъект("Excel.Application"); //... ДокExcel.Application.Workbooks.Application.Workbooks.Add(1); ДокExcel.Application.Workbooks.Application.ActiveSheet.Name = "Закладка 1"; ДокExcel.Application.Workbooks.Application.ActiveWorkbook.Worksheets.Add(); ДокExcel.ActiveWorkbook.Sheets.Application.ActiveSheet.Name = "Вторая Закладка"; ДокExcel.Visible =...
В данном примере запускается и инициализируется конфигурация 1С:Предприятие 8.0 с базой данных в каталоге D:\1CBasa. Далее в...
Попытка // Создать объект. Excel = Новый COMОбъект("Excel.Application"); Исключение Сообщить("Не удалось инициализировать Excel"); Возврат; КонецПопытки; Попытка //...
ИмяФайла = "Отчет.xls"; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение); ДиалогОткрытияФайла.ПолноеИмяФайла = ИмяФайла; ДиалогОткрытияФайла.Каталог = КаталогВременныхФайлов(); ДиалогОткрытияФайла.Фильтр = "Файлы Microsoft...
Код для 7 версии, при использовании в 8-ой — заменить E=СоздатьОбъект("Excel.Application"); на E=Новый COMОбъект("Excel.Application"); Функция глОткрытьФайл(Маска="") Экспорт...
Иногда бывает так, что отчет очень большой (> 65535 строк), а работать с этим всем нужно через...
Попытка Екс= Новый COMОбъект("Excel.Application") ; НашФайл = Екс.Workbooks.Open(пвФайл); //Открываем файл ДеревоЛистов.Строки.Очистить(); тУроветь=ДеревоЛистов.Строки.Добавить(); тУроветь[0]=Файл.Имя; Для к=1 по НашФайл.Sheets.Count()...
Перем СсылкаНаДокумент; Процедура СформироватбФайл_MS_Word_И_OpenOffice(Кнопка) ДокументСсылка = СсылкаНаДокумент; ИмяФайла = ПолучитьИмяВременногоФайла(); // Теперь формируем файл из MS Wordа...
При чтении файла Excel я использую вариантный массив. Он позволяет быстро получить ВСЮ таблицу листа в память,...
Код //Функция открывает таблицу в MS Excel //Таблица - печатная форма 1С //ИмяЛиста - имя, которое будет...
// Создание объекта MS Word Word = Новый COMОбъект("Word.Application"); // Установка видимости приложения Word.Visible = Ложь; //...