Написано в ознакомительных целях.
При желании функционал можно расширить...
Использовать:
- Добавляем обработку в конфигурацию.
- Пишем код по примеру:
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"));
Параграфы.ДобавитьЗначение(НовыйПараграф);
Упаковать(Док);
Сообщить("Создан: " + Док);
КонецПроцедуры
ИСТОРИЯ:
09.08.2008:
- добавил пример для 1С 7.7 (не забываем, pkzipc.exe скопировать в каталог "BIN" 1С 7.7)
