Пример выгрузки информации в ворд из 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();
КонецПроцедуры