Текст = Новый ТекстовыйДокумент; 
Выборка = Справочники.Номенклатура.Выбрать(); 
Пока Выборка.Следующий() Цикл 
        Стр = СтрЗаменить(Выборка.Наименование, Символ(34), "%квч%"); 
       Код = Строка(Выборка.Код) + Символ(34); 
       Текст.ДобавитьСтроку(Код + Стр); 
КонецЦикла; 
Текст.Записать("c:\temp\text.txt");