Внешняя печатная форма в шаблон word через БСП.
Когда то в 7.7 работала такая конструкция :
Как подобное можно сделать в 8.3?
Данные для заполнения макета добавляются через Структуру.
ДанныеПечати.Вставить("_27",ТекстОснование_1_1);
Когда то в 7.7 работала такая конструкция :
Если Основание = 1 Тогда
Word.Selection.Find.Execute("{27}",0,0,0,0,0,1,1,1,,0,,,,0);
Word.Selection.Font.Bold = 9999998; //Жирный
Word.Selection.Font.Underline = 1; //Подчеркнутый
КонецЕсли;Как подобное можно сделать в 8.3?
Данные для заполнения макета добавляются через Структуру.
ДанныеПечати.Вставить("_27",ТекстОснование_1_1);
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(13) нет, через структуру в функции Функция ПолучитьДанныеОбъекта(МассивОбъектов)
Затем через функции БСП
Функция ПолучитьДанныеПечати(Знач МассивДокументов, Знач МассивИменМакетов) Экспорт
ДанныеПоВсемОбъектам = Новый Соответствие;
Для Каждого ОбъектСсылка Из МассивДокументов Цикл
ДанныеОбъектаПоМакетам = Новый Соответствие;
Для Каждого ИмяМакета Из МассивИменМакетов Цикл
ДанныеОбъектаПоМакетам.Вставить(ИмяМакета, ПолучитьДанныеОбъекта(ОбъектСсылка));
КонецЦикла;
ДанныеПоВсемОбъектам.Вставить(ОбъектСсылка, ДанныеОбъектаПоМакетам);
КонецЦикла;
.....
КонецФункции
Затем через функции БСП
Функция ПолучитьДанныеПечати(Знач МассивДокументов, Знач МассивИменМакетов) Экспорт
ДанныеПоВсемОбъектам = Новый Соответствие;
Для Каждого ОбъектСсылка Из МассивДокументов Цикл
ДанныеОбъектаПоМакетам = Новый Соответствие;
Для Каждого ИмяМакета Из МассивИменМакетов Цикл
ДанныеОбъектаПоМакетам.Вставить(ИмяМакета, ПолучитьДанныеОбъекта(ОбъектСсылка));
КонецЦикла;
ДанныеПоВсемОбъектам.Вставить(ОбъектСсылка, ДанныеОбъектаПоМакетам);
КонецЦикла;
.....
КонецФункции
Через поиск тогда, видимо:
Функция ВыполнитьЗамену(знач Object, Параметр, Значение)
СтрокаПоиска = "[" + Параметр + "]";
СтрокаЗамены = Строка(Значение);
//Необходимо выделить областей, в которой мы осуществляем замену
Object.Select();
//Получаем выделенную область
Selection = Object.Application.Selection;
//Найдем все вхождения параметра и заменим его на нужное нам значение
FindObject = Selection.Find;
FindObject.ClearFormatting();
Пока FindObject.Execute(СтрокаПоиска) Цикл
Если ПустаяСтрока(СтрокаЗамены) Тогда
Selection.Delete();
Иначе
Selection.TypeText(СтрокаЗамены);
КонецЕсли;
КонецЦикла;
//Отменим выделение
Selection.Collapse();
КонецФункции
Уже получив выделенную область можно отредактировать стиль текста, шрифт и т.д.
//Редактирование шрифта
Selection.Font
//Редактирование цвета
Selection.HighlightColorIndex
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот