Программа
Переместить
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)
Написано в ознакомительных целях.
При желании функционал можно расширить...
Использовать:
1. Добавляем обработку в конфигурацию.
2. Пишем код по примеру:
1С 8.х:
1С 7.7:
ИСТОРИЯ:
09.08.2008:
- добавил пример для 1С 7.7 (не забываем, pkzipc.exe скопировать в каталог "BIN" 1С 7.7)
При желании функционал можно расширить...
Использовать:
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)
Скриншоты
Плюсанули (+49):
, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,
Комментарии
Для комментирования требуется авторизация.
Новые комментарии вверху / внизу. Показать: Все комментарии (11) / Последние 10 комментариев
10.
9.
8.
homutke 28.08.2008
ММмм. а как же надпись без внешних компонент, если используются внешние упаковщики.
7.
Душелов 23.08.2008
Вообще не нужен для формирования файла. Естественно, для его открытия офис нужен :)
6.
5.
Душелов 14.08.2008
А дальше все понятно. Можно и без документации по формату обойтись - посмотреть, какие теги на размер шрифта, цвет влияют и дополнить код.
Так же, как и добавить картинки, заполнение таблиц и прочее... Шаблон есть, а дальше - простор мысли ;)
4.
3.
2.
Новые комментарии вверху / внизу. Показать: Все комментарии (11) / Последние 10 комментариев




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