Расшифровка аббревиатуры

Question

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

Accepted Answer

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