Здравствуйте! Помогите, пожалуйста, дописать код на расшифровку аббревиатур. Есть следующий код:

```1c
    Название = Объект.Наименование;
    Если Не ЗначениеЗаполнено(Объект.ПолноеНаименование) Тогда
    ОПФОрганизации = Новый Соответствие;
    ОПФОрганизации.Вставить("ИП", "Индивидуальный предприниматель");
    ОПФОрганизации.Вставить("АО", "Акционерное общество");
    ОПФОрганизации.Вставить("ПАО", "Публичное акционерное общество");
    ОПФОрганизации.Вставить("ООО", "Общество с ограниченной ответственностью");
    НазваниеКонтрагента = СтрРазделить(Название, " ");
    НовоеНазвание = Новый Массив;
    Для Каждого Элемент Из НазваниеКонтрагента Цикл
    Если ОПФОрганизации[Элемент] <> Неопределено Тогда
    НовоеНазвание.Добавить(ОПФОрганизации[Элемент]);
    КонецЕсли;
    КонецЦикла;
    КонецЕсли;
```

Не могу понять как дописать цикл.
---
Из очевидного - надо собрать новое наименование. Сейчас оно собирается криво - добавляется только расшифровка аббревиатуры, а остальные поля нет.

```1c
    Название = Объект.Наименование;
    Если Не ЗначениеЗаполнено(Объект.ПолноеНаименование) Тогда
    ОПФОрганизации = Новый Соответствие;
    ОПФОрганизации.Вставить("ИП", "Индивидуальный предприниматель");
    ОПФОрганизации.Вставить("АО", "Акционерное общество");
    ОПФОрганизации.Вставить("ПАО", "Публичное акционерное общество");
    ОПФОрганизации.Вставить("ООО", "Общество с ограниченной ответственностью");
    НазваниеКонтрагента = СтрРазделить(Название, " ");
    НовоеНазвание = Новый Массив;
    Для Каждого Элемент Из НазваниеКонтрагента Цикл
    Если ОПФОрганизации[Элемент] <> Неопределено Тогда
    НовоеНазвание.Добавить(ОПФОрганизации[Элемент]);
    Иначе
    НовоеНазвание.Добавить(Элемент);
    КонецЕсли;
    КонецЦикла;
    Объект.ПолноеНаименование = СтрСоединить(НовоеНазвание, " ");
    КонецЕсли;
```
---
Не могу понятьКакой результат-то вообще ожидается? Чтобы вот оно само, это самое, волшебное пыщь что?
---
Из очевидного - надо собрать новое наименование. Сейчас оно собирается криво - добавляется только расшифровка аббревиатуры, а остальные поля нет.

```1c
    Название = Объект.Наименование;
    Если Не ЗначениеЗаполнено(Объект.ПолноеНаименование) Тогда
    ОПФОрганизации = Новый Соответствие;
    ОПФОрганизации.Вставить("ИП", "Индивидуальный предприниматель");
    ОПФОрганизации.Вставить("АО", "Акционерное общество");
    ОПФОрганизации.Вставить("ПАО", "Публичное акционерное общество");
    ОПФОрганизации.Вставить("ООО", "Общество с ограниченной ответственностью");
    НазваниеКонтрагента = СтрРазделить(Название, " ");
    НовоеНазвание = Новый Массив;
    Для Каждого Элемент Из НазваниеКонтрагента Цикл
    Если ОПФОрганизации[Элемент] <> Неопределено Тогда
    НовоеНазвание.Добавить(ОПФОрганизации[Элемент]);
    Иначе
    НовоеНазвание.Добавить(Элемент);
    КонецЕсли;
    КонецЦикла;
    Объект.ПолноеНаименование = СтрСоединить(НовоеНазвание, " ");
    КонецЕсли;
```
---
Да, нужно собрать новое наименование. Не знаю как это сделать.
---
Всё вижу, не вижу присваивания НаименованиеПолное.
---
В этом нет ничего сложного, самое главное собрать массив НовоеНазвание, далее соберу его в строку через СтрСоединить и выведу в НаименованиеПолное.
---
Спасибо вам огромное!