Выгрузка данных из 1С в Word.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 |
Процедура КнопкаВыполнитьНажатие(Кнопка) // Создание объекта 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(); // Отступ ПечататьОдно = «» + » (» + «)»; ПечататьДругое = «»; ПечататьТретье = «№ » + » от «; ПечататьМенеджер = «77777777777»; ПечататьТелефон = «888888888888»; Документ.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(); КонецПроцедуры |