Как программно удалить все документы в базе?

 Для НомТ = 1 По Метаданные.Документы.Количество() Цикл


                ИмяДок = Метаданные.Документы.Получить(НомТ-1).Имя;  


                Запрос = НОвый Запрос;


                               Запрос.Текст =  "ВЫБРАТЬ


                               |Док.Ссылка КАК Док_


                               |ИЗ Документ." + ИмяДок + " КАК Док";


                               Выборка = Запрос.Выполнить().Выбрать();


                               Пока Выборка.Следующий() Цикл


                                               ДокОБ = Выборка.Док_.ПолучитьОБъект();


                                               ДокОБ.Удалить();


                               КонецЦикла;  


                КонецЦикла;