Создание документа Word 2007
Конфигурация
для
1С: Предприятие 8.0, 1С: Бухгалтерия 7.7, 1С: Торговля и склад 7.7, 1С: Зарплата и кадры 7.7, 1С: Предприятие 8.1
Создание документа Word 2007 без установленного Word'а, без внешних компонент, исключительно средствами 1С
Написано в ознакомительных целях.
При желании функционал можно расширить...
Использовать:
1. Добавляем обработку в конфигурацию.
2. Пишем код по примеру:
1С 8.х:
Процедура СоздатьДокументWord2007()
Ворд2007 = Обработки.СозданиеДокументаWord2007.Создать();
Док = "c:\test.docx";
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьЗаголовок1("Создание документов Word 2007 в 1С"));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьПараграф("Создано Vasil aka Душелов'2008", "Italic"));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьПараграф("Обработка, создающая документы, в формате Word 2007.
|Предустановленный Word не требуется."));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьЗаголовок2("Возможности:"));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьПараграф("Заголовок 1"));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьПараграф("Заголовок 2"));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьПараграф("Заголовок 3"));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьПараграф("Параграф"));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьПараграф("Полужирный", "Bold"));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьПараграф("Курсив", "Italic"));
Ворд2007.Параграфы.Добавить(Ворд2007.СоздатьПараграф("Подчеркнутый", "Underline"));
НовыйПараграф = Ворд2007.СоздатьПараграф("Текст может поддерживать мультиформаты строки, такие как ");
НовыйПараграф.СписокСтрок.Добавить(Ворд2007.СоздатьСтрокуДок("полужирный и курсив", "Bold|Italic"));
НовыйПараграф.СписокСтрок.Добавить(Ворд2007.СоздатьСтрокуДок(" или "));
НовыйПараграф.СписокСтрок.Добавить(Ворд2007.СоздатьСтрокуДок("курсив и подчеркнутый", "Italic|Underline"));
НовыйПараграф.СписокСтрок.Добавить(Ворд2007.СоздатьСтрокуДок(" "));
НовыйПараграф.СписокСтрок.Добавить(Ворд2007.СоздатьСтрокуДок("и т.д., и т.п.", "Bold|Italic|Underline"));
Ворд2007.Параграфы.Добавить(НовыйПараграф);
Ворд2007.Упаковать(Док);
Сообщить("Создан: " + Док);
КонецПроцедуры
1С 7.7:
Процедура СоздатьДокументWord2007()
Док = "c:\test.docx";
Параграфы = СоздатьОбъект("СписокЗначений");
Параграфы.ДобавитьЗначение(СоздатьЗаголовок1("Создание документов Word 2007 в 1С"));
Параграфы.ДобавитьЗначение(СоздатьПараграф("Создано Vasil aka Душелов'2008", "Italic"));
Параграфы.ДобавитьЗначение(СоздатьПараграф("Обработка, создающая документы, в формате Word 2007.
|Предустановленный Word не требуется."));
Параграфы.ДобавитьЗначение(СоздатьЗаголовок2("Возможности:"));
Параграфы.ДобавитьЗначение(СоздатьПараграф("Заголовок 1"));
Параграфы.ДобавитьЗначение(СоздатьПараграф("Заголовок 2"));
Параграфы.ДобавитьЗначение(СоздатьПараграф("Заголовок 3"));
Параграфы.ДобавитьЗначение(СоздатьПараграф("Параграф"));
Параграфы.ДобавитьЗначение(СоздатьПараграф("Полужирный", "Bold"));
Параграфы.ДобавитьЗначение(СоздатьПараграф("Курсив", "Italic"));
Параграфы.ДобавитьЗначение(СоздатьПараграф("Подчеркнутый", "Underline"));
НовыйПараграф = СоздатьПараграф("Текст может поддерживать мультиформаты строки, такие как ");
НовыйПараграф.ДобавитьЗначение(СоздатьСтрокуДок("полужирный и курсив", "Bold|Italic"));
НовыйПараграф.ДобавитьЗначение(СоздатьСтрокуДок(" или "));
НовыйПараграф.ДобавитьЗначение(СоздатьСтрокуДок("курсив и подчеркнутый", "Italic|Underline"));
НовыйПараграф.ДобавитьЗначение(СоздатьСтрокуДок(" "));
НовыйПараграф.ДобавитьЗначение(СоздатьСтрокуДок("и т.д., и т.п.", "Bold|Italic|Underline"));
Параграфы.ДобавитьЗначение(НовыйПараграф);
Упаковать(Док);
Сообщить("Создан: " + Док);
КонецПроцедуры
| 
0
