Работа с 1C + Word

Пример выгрузки информации в ворд из 1С

Процедура КнопкаВыполнитьНажатие(Кнопка)
    
     // Создание объекта MS Word
     //Попытка
     //    Word = Новый COMОбъект(«Word.Application»);
     //Исключение
     //    Сообщить(ОписаниеОшибки(),»!!!»);
     //    Сообщить(«Возможно, MS Word не установлен на этом компьютере.»);
     //    Возврат;
     //КонецПопытки;
    
     Handler = Новый Структура(«Тип», «DOC»);
    
     Попытка
         Word = Новый COMОбъект(«Word.Application»);
     Исключение
         //ОбщегоНазначенияКлиент.ДобавитьСообщениеДляЖурналаРегистрации(СобытиеЖурналаРегистрации(), «Ошибка»,
         //    ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()),,Истина);
         //НеУдалосьСформироватьПечатнуюФорму(ИнформацияОбОшибке());
     КонецПопытки;
    
     Handler.Вставить(«COMСоединение», Word);
     Попытка
         Word.Documents.Add();
     Исключение
         Word.Quit(0);
         Word = 0;
         Handler.Word = 0;
         //ОбщегоНазначенияКлиент.ДобавитьСообщениеДляЖурналаРегистрации(СобытиеЖурналаРегистрации(), «Ошибка»,
         //    ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()),,Истина);
         //НеУдалосьСформироватьПечатнуюФорму(ИнформацияОбОшибке());
     КонецПопытки;

   
     // Установка видимости приложения
     Word.Visible = Истина;
     // Добавление нового документа в приложение
     //Word.Documents.Add();
     // Делаем документ активным
     Документ = Word.ActiveDocument();
    
     Таб = Документ.Tables.Add(Документ.characters.last, 2, 2);
     Таб.Cell(1, 1).Range.Text = «»;
     Таб.Cell(1, 2).Range.Text =»»;
     Таб.Cell(1, 2).Range.ParagraphFormat.Alignment=2; // право
    
     Таб.Cell(2, 1).Range.Text = «г. Иркутск, б. Постышева 18Б»;
     Таб.Cell(2, 2).Range.Text = «Отдел по работе с претензиями»;
     Таб.Cell(2, 2).Range.ParagraphFormat.Alignment = 2; // Выравнивание в право
    
     // Добавим параграф
     Документ.Paragraphs.Add();
     НомерПараграфа = Документ.Paragraphs.Count();
     Документ.Paragraphs(НомерПараграфа).Range.InsertAfter(«Претензия № «);
    
     Документ.Paragraphs.Add(); // Отступ
    
     Документ.Paragraphs.Add();
     НомерПараграфа = Документ.Paragraphs.Count();
    
     ПечТема = «»;
         ПечТема = «Тема: Адресная система распространения»;   
    
     Документ.Paragraphs(НомерПараграфа).Range.InsertAfter(ПечТема);
     Документ.Paragraphs(НомерПараграфа).Range.Font.Size = 12; // размер шрифта
     Документ.Paragraphs(НомерПараграфа).Range.Font.Bold = -1; // жирный шрифт
    
     Документ.Paragraphs.Add();
     НомерПараграфа = Документ.Paragraphs.Count();
     Документ.Paragraphs(НомерПараграфа).Range.InsertAfter(«на «);
     Документ.Paragraphs(НомерПараграфа).Range.Font.Size = 12; // размер шрифта
     Документ.Paragraphs(НомерПараграфа).Range.Font.Bold = -1; // жирный шрифт
    
    
     Документ.Paragraphs.Add(); // Отступ
    
     ПечТовар = «» + » (» + «)»;
     ПечНомерИздания = «»;
     ПечЗаказ = «№ » + » от «;
    
     ПечИсполнитель = «123»;
     ПечТелефон = «123»;
    
    
     Документ.Paragraphs.Add();
     НомерПараграфа = Документ.Paragraphs.Count();
     //Документ.Paragraphs(НомерПараграфа).Format.SpaceAfter = 24;
     Документ.Paragraphs(НомерПараграфа).Range.InsertAfter(»    Направляем для проверки запрос о неполучении «);
     Документ.Paragraphs(НомерПараграфа).Range.Font.Size = 12; // размер шрифта
     Документ.Paragraphs(НомерПараграфа).Range.Font.Bold = 0; // обычный шрифт   
     Документ.Paragraphs.Item(НомерПараграфа).Format.Alignment=0; // лево
    
     Документ.Paragraphs.Add();
     НомерПараграфа = Документ.Paragraphs.Count();
     Документ.Paragraphs(НомерПараграфа).Range.InsertAfter(»    Просим сообщить данные отправительных документов на указанное издание или сообщить причину неполучения посыла.»);
     Документ.Paragraphs(НомерПараграфа).Range.Font.Size = 12; // размер шрифта
     Документ.Paragraphs(НомерПараграфа).Range.Font.Bold = 0; // обычный шрифт   
     Документ.Paragraphs.Item(НомерПараграфа).Format.Alignment=0; // лево
    
    
     Документ.Paragraphs.Add(); // Отступ
     Документ.Paragraphs.Add(); // Отступ
    
     Документ.Paragraphs.Add();
     НомерПараграфа = Документ.Paragraphs.Count();
     Документ.Paragraphs(НомерПараграфа).Range.InsertAfter(«ФИО исполнителя: » + ПечИсполнитель + » _____________ подпись»);
     Документ.Paragraphs(НомерПараграфа).Range.Font.Size = 12; // размер шрифта
     Документ.Paragraphs(НомерПараграфа).Range.Font.Bold = 0; // обычный шрифт   
     Документ.Paragraphs.Item(НомерПараграфа).Format.Alignment=0; // лево
    
     Документ.Paragraphs.Add();
     НомерПараграфа = Документ.Paragraphs.Count();
     Документ.Paragraphs(НомерПараграфа).Range.InsertAfter(«Контактный телефон: » + ПечТелефон);
     Документ.Paragraphs(НомерПараграфа).Range.Font.Size = 12; // размер шрифта
     Документ.Paragraphs(НомерПараграфа).Range.Font.Bold = 0; // обычный шрифт   
     Документ.Paragraphs.Item(НомерПараграфа).Format.Alignment=0; // лево
    
     Документ.Paragraphs.Add(); // Отступ
    
     Word.Activate();
    
     // Сохранить и закрыть документ
     //Документ.Save();
     //Документ.SaveAs(\»c:\\Akt.doc\»);
     //Word.ActiveDocument.Close();
КонецПроцедуры

Добавить комментарий