&НаСервере
Функция ВывестиТабДокНаСервере()
ТабДок=Новый ТабличныйДокумент;
Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет("Макет");
Область=Макет.ПолучитьОбласть("Шапка");
Область.Параметры.Текст="Демонстрация части текста "+СделатьЖирным("жирным")+" в табличном документе";
ТабДок.Вывести(Область);
Возврат ТабДок;
КонецФункции
&НаСервере
Функция СделатьЖирным(ИсходнаяСтрока)
СтрокаПодмены="ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿāĂĄąĆćĉĊċČčĎďĐđĒēĔĕĖėĘęĚěĜĝĞğĠġ";
СтрокаПоиска="АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдужзийклмнопрстнфхцчшщъыьэюяё!#$%&()*+,-./0123456789:;<=>№";
НоваяСтрока="";
Для х=1 по СтрДлина(ИсходнаяСтрока) Цикл
ТекСимвол=Сред(ИсходнаяСтрока,х,1);
Если СтрНайти(СтрокаПоиска,ТекСимвол)>0 Тогда
НоваяСтрока=НоваяСтрока+Сред(СтрокаПодмены,СтрНайти(СтрокаПоиска,ТекСимвол),1);
Иначе
НоваяСтрока=НоваяСтрока+ТекСимвол;
КонецЕсли;
КонецЦикла;
Возврат НоваяСтрока;
КонецФункции
&НаКлиенте
Процедура ВывестиТабДок(Команда)
ВывестиТабДокНаСервере().Показать("Демо");
КонецПроцедуры
#1, ред. 10 января 2023 17:25