Создание шаблонов форматированного документа

Опубликовал Александр Тупикин (dark_wolf) в раздел Печать - Универсальные печатные формы

Форматированный документ - некий гибрид HTML и некоторых функций MS Office. Эта обработка позволяет разрабатывать макеты для последующего изменения и печати.

Обработка содержит две вкладки, для отображения форматированного документа и для отображения HTML-текста этого документа, вносить изменения можно в любом из них.

Позже планируется обработка по заполнению Форматированного документа Динамически с использованием макета, полученного с помощью этой обработки. 

Скачать файлы

Наименование Файл Версия Размер
Создание шаблонов
.epf 6,13Kb
23.05.12
36
.epf 6,13Kb 36 Скачать

См. также

Добавить вознаграждение
Комментарии
1. Нагим Османов (nagimo) 24.05.12 09:46 Сейчас в теме
О! Прикольно! Вроде знал что есть объект форматированный документ, но как-то не думал, что такие возможности есть.
А вопрос тогда - есть ли такое сохранение, чтобы потом в этой же обработке сохраненный файл открывать?
dark_wolf; +1 Ответить
2. Александр Тупикин (dark_wolf) 7 24.05.12 09:55 Сейчас в теме
Возможность сохранения есть - стандартная от 1С. Сохраняет в формат *.htm.
Но вот загружать его придется с помощью кода HTML
3. Нагим Османов (nagimo) 24.05.12 09:59 Сейчас в теме
А может есть вариант приделать к обработке загрузку сразу используя файл HTML?
dark_wolf; +1 Ответить
4. Александр Тупикин (dark_wolf) 7 24.05.12 11:02 Сейчас в теме
Можно добавить кнопку загрузить со следующим обработчиком:

&НаКлиенте
Процедура Загрузить(Команда)
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Текст = "ru = ""Форматированный документ""";
Фильтр = НСтр(Текст)+"(*.htm)|*.htm";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = "Выберите файл";
Если ДиалогОткрытияФайла.Выбрать() Тогда
ИмяФайла = ДиалогОткрытияФайла.ПолноеИмяФайла;
Чтение = Новый ЧтениеТекста(ИмяФайла,КодировкаТекста.UTF8);
ТекстHTML = Чтение.Прочитать();
УстановитьHTML(ТекстHTML, Новый Структура());
Иначе
Текст = "ru = ""Файл(ы) не выбран!""";
Предупреждение(НСтр(Текст));
КонецЕсли;
КонецПроцедуры
5. aleec bard (alexvbard) 16 22.06.12 22:19 Сейчас в теме
А можно ли в форматированный документ подставлять значения и потом выводить его на печать?
dark_wolf; +1 Ответить
6. Александр Тупикин (dark_wolf) 7 12.07.12 16:38 Сейчас в теме
Можно, но на уровне текста. То есть с помощью функции:

Текст = СтрЗаменить(Текст, "[Какой-тоПараметр]", "Значение");
SirYozha; +1 Ответить