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

 Для НомТ = 1 По Метаданные.Документы.Количество() Цикл
                ИмяДок = Метаданные.Документы.Получить(НомТ-1).Имя;  
                Запрос = НОвый Запрос;
                               Запрос.Текст =  "ВЫБРАТЬ
                               |Док.Ссылка КАК Док_
                               |ИЗ Документ." + ИмяДок + " КАК Док";
                               Выборка = Запрос.Выполнить().Выбрать();
                               Пока Выборка.Следующий() Цикл
                                               ДокОБ = Выборка.Док_.ПолучитьОБъект();
                                               ДокОБ.Удалить();
                               КонецЦикла;  
                КонецЦикла;