Если ПустоеЗначение(РодДляТД) = 1 Тогда
        Сообщить("Прервано");
        Возврат;
    КонецЕсли;
        
    Искомый = "{ТД}";
    нСпр = СоздатьОбъект("Справочник.Номенклатура");
    нСпр.ВыбратьЭлементы();
    Пока нСпр.ПолучитьЭлемент() = 1 Цикл
        ТекЭл = нСпр.ТекущийЭлемент();
        Если Найти(СокрЛП(нСпр.Наименование), СокрЛП(Искомый)) > 0 Тогда
            ТекЭл.Родитель = "";
            Если ТекЭл.Родитель <> РодДляТД Тогда
                ТекЭл.Родитель = РодДляТД;
                нСпр.Записать();
            КонецЕсли;
        КонецЕсли;    
    КонецЦикла;

Как правильно переместить найденный объект в другую группу, почему вываливается сабж ?

нСпр.ВыбратьЭлементы(0);

(0). Сбивается выборка сменой родителя.

Пройтись по справочнику и запомнить нужные элементы в списке значений. Потом перебрать значения в списке и как надо их изменять.
Или выбрать элементы не перебором справочника, а запросом. ТОгда результаты запроса выгрузить в таблиццу значений. Строки таблицы перебрать, записывая как надо элементы.

Кажется, был в 7-ке  метод, позволяющий не иерархически выбирать элементы, что-то типа ПорядокКодов. Тогда выборка не сбивается.

У ТС есть группа, которую перебирать надо (РодДляТД).
Не самое разумное решение перебирать весь справочник без иерархии. Вдруг там несколько сотен тысяч элементов :)

(5) Ой, нет, вру. Это группа, куда перемещать надо.

интересно вот это

ТекЭл.Родитель = "";
Если ТекЭл.Родитель <> РодДляТД Тогда


зачем сравнивать заведомо пустое значение с чем либо?

(7)
> зачем сравнивать заведомо пустое значение с чем либо?
ну а вдруг, не?

Приведите пример пожалуйста как сделать. А то добавляю в ТЗ. А в неё добавляются пустые строки )
ТЗ.Номенклатура = нСпр - так нельзя ?) Хотя написано, что можно писать любой тип (ТипЗначенияСтр(нСпр) "Справочник")

ТЗ.Номенклатура = нСпр.ТекущийЭлемент()

вот и выросло поколение не понимающее клюшки )))
ЗЫ достаточно перепозиционировать выборку

(9)  Пробовал выборку делать без иерархии, как в (1) показано?

нСпр2 = СоздатьОбъект("Справочник.Номенклатура");
...
нСпр2.НайтиЭлемент(нСпр);
наСпр2.Родитель=РодДляТД;
нСпр2.Записать();

С тз вот так вот не работает
    ТЗ.ВыбратьСтроки();
    Пока ТЗ.ПолучитьСтроку() = 1 Цикл
        Если ТЗ.Номенклатура.Родитель <> РодДляТД Тогда
             ТЗ.Номенклатура.Родитель = РодДляТД;
        КонецЕсли;
    КонецЦикла;
Сейчас (13) Попробую

(14) в этом случае

нСпр2 = СоздатьОбъект("Справочник.Номенклатура");
ТЗ.ВыбратьСтроки();
    Пока ТЗ.ПолучитьСтроку() = 1 Цикл
        Если ТЗ.Номенклатура.Родитель <> РодДляТД Тогда



...
нСпр2.НайтиЭлемент(ТЗ.Номенклатура);
наСпр2.Родитель=РодДляТД;
нСпр2.Записать();


        КонецЕсли;
    КонецЦикла;

нСпр2.Родитель=РодДляТД;

(15) Спасибо. Да так заработало. Только долго чёт ) Правда позиций 1000+ секунд 30... )

(17) Запрос по справочнику с условием потом
ТЗЗЗ=создатьобъект("ТаблицаЗначений");

Запрос.Выгрузить(ТЗЗЗ,0,0);

Потом перебираешь ТЗ , быстрее будет

(18) зачем там ТЗ

?

+ а если еще перед выборкой ТЗ поставить начатьтранзакцию а после зафиксироватьтранзакцию ))) еще быстрее

И ..быстрее будет, открыть для себя Uchoice или update

(19) в (15) - написано "в этом случае" (с) про без ТЗ было уже описано

(22)  Если Найти(СокрЛП(нСпр.Наименование), СокрЛП(Искомый)) > 0 Тогда  строка из (0) не смутила ? )

(24) Чем она кого - то должна смутить ?)
Она говорит об моём дилетантском уровне ?)

(24) нет, ючойз может искать по наименованию и поиск по подстроке тоже есть

(26) ну для этого как минимум нужно знать, что они есть ... ))) по мне так порой проще за 5-ть минут написать - чем копаться в сборнике обработок )))
(25) не в этом дело - не все универсальные обработки - сильно универсальны ...