Перенос по словам

Решил посмешить народ в начале недели, нашел свое творение

    КраткаяХарактеристикаСтрока = "";

    Пока ВыборкаПоОС.Следующий() Цикл

        ОбластьМакета = Макет.ПолучитьОбласть("ОЗ1");
        ОбластьМакета.Параметры.Заполнить(ВыборкаПоШапке);
        ОбластьМакета.Параметры.Заполнить(ВыборкаПоОС);

        КраткаяХарактеристикаСтрока = КраткаяХарактеристикаСтрока + ВыборкаПоОС[6];
        ВыборкаДрагМет = ВыборкаПоОС.ДрагМеталлы.Выгрузить();
        КоличествоМеталлов = ВыборкаДрагМет.Количество();
        Если КоличествоМеталлов > 0 Тогда
        КраткаяХарактеристикаСтрока = КраткаяХарактеристикаСтрока + " Вміст дорогоцінних металів:";
            Для НомерСтроки = 1 По КоличествоМеталлов Цикл
                КраткаяХарактеристикаСтрока = КраткаяХарактеристикаСтрока + " " + (Строка(ВыборкаДрагМет[НомерСтроки-1].Номенклатура.Наименование)+ ":  " +Строка(ВыборкаДрагМет[НомерСтроки-1].Количество)  + " грамм");
                Если НомерСтроки = КоличествоМеталлов Тогда
                    КраткаяХарактеристикаСтрока = КраткаяХарактеристикаСтрока + ".";
                Иначе
                    КраткаяХарактеристикаСтрока = КраткаяХарактеристикаСтрока + ",";
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
        КраткаяХарактеристикаСтрокаМассив =  ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(КраткаяХарактеристикаСтрока, " ");
        КраткаяХарактеристикаСтрокаМассивКоличество = КраткаяХарактеристикаСтрокаМассив.Количество();
    Если КраткаяХарактеристикаСтрокаМассивКоличество > 1 Тогда
        КороткаХКАстр = Новый Массив(6);
        Для НомерС = 0 По 5 Цикл
            КороткаХКАстр[НомерС]="";
        КонецЦикла;
        НомМассива=0;
            Для НомерС =1 По 80 Цикл
                КороткаХКАстрВрем=КороткаХКАстр[0]+" " +КраткаяХарактеристикаСтрокаМассив[НомМассива];
                Дли=СтрДлина(КороткаХКАстрВрем);
                    Если Дли >= 80  ИЛИ НомМассива >= (КраткаяХарактеристикаСтрокаМассивКоличество-1) Тогда
                        Прервать;
                    Иначе
                        КороткаХКАстр[0] = КороткаХКАстрВрем;
                        НомМассива=НомМассива+1;
                    КонецЕсли;
            КонецЦикла;
        НомМассиваХарктеристик=1;
        КраткаяХарактеристикаСтрокаМассивКоличество = КраткаяХарактеристикаСтрокаМассив.Количество();
        Для НомерМ = 1 По 5 Цикл
            Для НомерС = 1 По 110 Цикл
                КороткаХКАстрВрем=КороткаХКАстр[НомерМ]+" " +КраткаяХарактеристикаСтрокаМассив[НомМассива];
                Дли=СтрДлина(КороткаХКАстрВрем);
                    Если Дли >= 110 ИЛИ НомМассива >= (КраткаяХарактеристикаСтрокаМассивКоличество-1) Тогда
                        Прервать;
                    Иначе
                        КороткаХКАстр[НомерМ] = КороткаХКАстрВрем;
                        НомМассива=НомМассива+1;
                    КонецЕсли;
            КонецЦикла;
            Если НомМассива >= (КраткаяХарактеристикаСтрокаМассивКоличество-1) Тогда
                Прервать;
            Иначе
                НомМассиваХарктеристик=НомМассиваХарктеристик+1;
            КонецЕсли;
        КонецЦикла;
        Если НомМассиваХарктеристик < 6 И Дли <= 110 Тогда
            КороткаХКАстр[НомМассиваХарктеристик] = КороткаХКАстр[НомМассиваХарктеристик] + " " + КраткаяХарактеристикаСтрокаМассив[КраткаяХарактеристикаСтрокаМассивКоличество-1];
        КонецЕсли;
        ОбластьМакета.Параметры.КороткаХКАстр1=КороткаХКАстр[0];
        ОбластьМакета.Параметры.КороткаХКАстр2=КороткаХКАстр[1];
        ОбластьМакета.Параметры.КороткаХКАстр3=КороткаХКАстр[2];
        ОбластьМакета.Параметры.КороткаХКАстр4=КороткаХКАстр[3];
        ОбластьМакета.Параметры.КороткаХКАстр5=КороткаХКАстр[4];
        ОбластьМакета.Параметры.КороткаХКАстр6=КороткаХКАстр[5];
    КонецЕсли;