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