Что-то забыл и поисковик не помогает ((
нужно что-то типа
           Для Каждого ТЧ Из Док.ТабличныеЧасти Цикл
               
           КонецЦикла;

(0) Вот лентяи!!! Ппц...
v8: Перебрать и очистить все табличные части документа

(1) спасибо, я не лентяй (( просто проснулся недавно и полмесяца на 7.7 сидел, а ищу уже полчаса

(2) Да ладно, не льсти себе))

блин, ну кое-как победил этот цикл

           Для Сч = 0 По Док.Метаданные().ТабличныеЧасти.Количество() - 1 Цикл
               ТЧ = Док[Док.Метаданные().ТабличныеЧасти[Сч].Имя];
               Для Сч2 = 0 По Док.Метаданные().ТабличныеЧасти[Сч].Реквизиты.Количество() - 1 Цикл
                   Если Док.Метаданные().ТабличныеЧасти[Сч].Реквизиты[Сч2].Тип.СодержитТип(Тип("ПеречислениеСсылка.КВД")) Тогда
                       Для Каждого Строка Из ТЧ Цикл
                           Если Строка[Док.Метаданные().ТабличныеЧасти[Сч].Реквизиты[Сч2].Имя] <> КВФ Тогда
                               Строка[Док.Метаданные().ТабличныеЧасти[Сч].Реквизиты[Сч2].Имя] = КВФ;
                               Записать = Истина;
                           КонецЕсли;
                       КонецЦикла;
                   КонецЕсли;
               КонецЦикла;
           КонецЦикла;

может, как-нить попроще можно сделать?

Для Каждого ТЧ Из Док.Метаданные().ТабличныеЧасти Цикл
               Для Каждого Реквизит ИЗ ТЧ.Реквизиты Цикл
                   Если Реквизиты.Тип.СодержитТип(Тип("ПеречислениеСсылка.КВД")) Тогда
                       Для Каждого Строка Из ТЧ Цикл
                           Если Строка[Реквизиты.Имя] <> КВФ Тогда
                               Строка[Реквизиты.Имя] = КВФ;
                               Записать = Истина;
                           КонецЕсли;
                       КонецЦикла;
                   КонецЕсли;
               КонецЦикла;
           КонецЦикла;

Реквизиты.Имя = Реквизит.Имя

(5) и тебе спасибо, мил человек