Имя:
Пароль:

Регистрация | Забыли пароль?

Инфостарт
О проекте | Реклама на сайте | Контакты

Программа

Переместить

1С + Office

49

Создание документа Word 2007

09.08.2008

Конфигурация для 1С: Предприятие 8.0, 1С: Бухгалтерия 7.7, 1С: Торговля и склад 7.7, 1С: Зарплата и кадры 7.7, 1С: Предприятие 8.1

Создание документа Word 2007 без установленного Word'а, без внешних компонент, исключительно средствами 1С

Скачать файлы (708)
Наименование Размер Скачиваний Доступ Скачать
CreateDocWord2007 558kb 708 Зарегистрированные Скачать
Написано в ознакомительных целях.
При желании функционал можно расширить...

Использовать:
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"));
        Параграфы.ДобавитьЗначение(НовыйПараграф);
        
        Упаковать(Док);
        
        Сообщить("Создан: " + Док);
КонецПроцедуры


ИСТОРИЯ:

09.08.2008:
- добавил пример для 1С 7.7 (не забываем, pkzipc.exe скопировать в каталог "BIN" 1С 7.7)
Скриншоты
Результат создания
Рис. 1. Результат создания


Минус Плюс
Просмотры: 3231
Подписка
Плюсанули (+49):

, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,

Комментарии
Для комментирования требуется авторизация.

Имя: Пароль:

Запомнить | Регистрация | Забыли пароль?

Новые комментарии вверху / внизу. Показать: Все комментарии (11) / Последние 10 комментариев
11.
29.08.2008

(10) но 1с++ - это уже внешняя компонента ;)

10.
28.08.2008

(8) 1с++ тоже умеет упаковывать/распаковывать ;)

9.
28.08.2008

(8) Я для 7-ки не планировал делать, попросили.
8-ка пакует сама.

8.
28.08.2008

ММмм. а как же надпись без внешних компонент, если используются внешние упаковщики.

7.
23.08.2008

Вообще не нужен для формирования файла. Естественно, для его открытия офис нужен :)

6.
22.08.2008

я правильно понял, что office ВААБЩЕ не нужен для запуска?

5.
14.08.2008

А дальше все понятно. Можно и без документации по формату обойтись - посмотреть, какие теги на размер шрифта, цвет влияют и дополнить код.
Так же, как и добавить картинки, заполнение таблиц и прочее... Шаблон есть, а дальше - простор мысли ;)

4.
13.08.2008

Ты Гений.

3.
09.08.2008

Добавил пример для 1С 7.7.
В принципе, можно и класс для 1С++ написать...

2.
09.08.2008

Отличная идея!

Новые комментарии вверху / внизу. Показать: Все комментарии (11) / Последние 10 комментариев
← Следующая Предыдущая →