Обезличивание данных. Скрытие персональной информации. Нужна срочная помощь.

[antoneus]

Наименование, кстати, не входит в список реквизитов. Так что надо так:

Код Выделить Развернуть

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

В целом работает.