Работа с 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();
КонецПроцедуры

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

Ваш адрес email не будет опубликован. Обязательные поля помечены *