В 1с при выборе удаления помеченных документов. Осуществляется быстрый подсчет всех документов. Это видно в строке состояния. Как можно такое сделать ????
Процедура
ххх.выбратьДокуметы()
Пока ххх.ПолучитьДокумент()=1 Цикл
  занимает очень много времени..
КонецЦикла.

поиск рулит

т.е. ПОИСК? надо посчитать количество

http://www.forum.mista.ru/find.php

(2)запросом.... вот пример для справочника, по аналогии можешь сделать для доков:

     Вид = "Номенклатура";
   Запрос = СоздатьОбъект("Запрос");
   
   ТекстЗапроса = "
   |Товар = Справочник." + Вид + ".ТекущийЭлемент;
   |Функция КолЗап = Счётчик(Товар);";
             
   Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
       Сообщить("Нет, нах...")
   Иначе
       Сообщить(Запрос.КолЗап)    
   КонецЕсли;

Лучше прямой 1С++ запрос

SELECT COUNT(*) FROM $Документ.ххх

Инд = 1;
   Для Инд = 1 По Метаданные.Документ() Цикл
       Идент = Метаданные.Документ(Инд).Идентификатор;
       ДокИдент = "Документ." + Идент;
       Док = СоздатьОбъект(ДокИдент);    
       Кол = 0;
       Док.ВыбратьДокументы();
       Пока Док.ПолучитьДокумент() = 1 Цикл
           Кол = Кол + 1;
       КонецЦикла;
       Сообщить(Идент + " = " + Строка(Кол));
   КонецЦикла;

Инд = 1;
   Для Инд = 1 По Метаданные.Документ() Цикл
       Идент = Метаданные.Документ(Инд).Идентификатор;
       ДокИдент = "Документ." + Идент;
       Док = СоздатьОбъект(ДокИдент);    
       Кол = 0;
       Док.ВыбратьДокументы();
       Пока Док.ПолучитьДокумент() = 1 Цикл
           Кол = Кол + 1;
       КонецЦикла;
       Сообщить(Идент + " = " + Строка(Кол));
   КонецЦикла;

(+7) Если блок
       Док.ВыбратьДокументы();
       Пока Док.ПолучитьДокумент() = 1 Цикл
           Кол = Кол + 1;
       КонецЦикла;
работает долго, меняешь его на запрос, как советует (4)

(7) - от этого уходили.

Прямые запросы рулят. Обычные (4) - тормозят

А если мне надо сделать подсчет доков для любой базы, тогда я же не знаю какие доки есть в этой базе.
и тогда
   ТекстЗапроса = "
   |Товар = Справочник." + Вид + ".ТекущийЭлемент;
   |Функция КолЗап = Счётчик(Товар);";

ВИД - неизвестен :-(

Вот тебе готовый, раз сам думать не хочешь...

   Кол = 0;
   Запрос = СоздатьОбъект("Запрос");    
   
   Для Инд = 1 По Метаданные.Документ() Цикл          
       
       Идент = Метаданные.Документ(Инд).Идентификатор;
   
       ТекстЗапроса = "
       |Товар = Документ." + Идент + ".ТекущийДокумент;
       |Функция КолЗап = Счётчик(Товар);";
       
       Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
           Кол = Кол + Запрос.КолЗап;  
       КонецЕсли;        
       
   КонецЦикла;

Огромное спасибо.