Главная » Файлы » Программируем в 1С » 1С и Office

Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!

Через минуту Вы получите "Гостевой доступ"




Создание документа Word 2007
2009 Февраль 18, 09:51

Создание документа 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"));
Параграфы.ДобавитьЗначение(НовыйПараграф);

Упаковать(Док);

Сообщить("Создан: " + Док);
КонецПроцедуры
Категория: 1С и Office | Добавил: c1 | Теги: скачать бесплатно программы 1с
Просмотров: 2539 | Загрузок: 0 | Комментарии: 1 | Рейтинг: 5.0/1

Выразить благодарность - Поделиться с друзьями!

 

Здесь все о технической стороне 1С!

 

Узнай, как правильно администрировать 1С Предприятие
Регистрируйся на бесплатный 7-ми дневный курс сейчас:

Ваш E-Mail в безопасности



Всего комментариев: 1
avatar
1
а как скачать то?
avatar