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