// Все буфера состоящие из одного слова поместим в один объект
СписокБуферов = Главный.Определить(0, Объекты.Дерево, Свойства.Наименование, "Буфер");
Сообщить("Запуск, Сократим список буферов обмена - работаем со словами, было объектов", СписокБуферов.Количество());
ТипСтрока                        = СписокБуферов.Колонки.Целое(Свойства.Тип, "Строка");
ОбъектНовый                      = СписокБуферов.Определить(0,               Объекты.Текст, Свойства.Наименование, "Список слов");
ОбъектНовый.'Количество выборов' = 10;
ОбъектНовый.Тип                  = СписокБуферов.Колонки.Целое(Свойства.Тип, "Текст");
Текст                            = ОбъектНовый.Текст;
Для Объект Из СписокБуферов Цикл
    Если (Объект.'Количество выборов'<2) Тогда
        Если (Объект.Целое(Свойства.Текст)>0) Тогда // в строке только одно слово
            Текст.Добавить(Объект.Текст);
            Объект.Неиспользуемый = 1;
        Конец;
    Конец;
Конец;
ОбъектНовый.Текст = Текст;
СписокБуферов.Удалить("Неиспользуемый", 1);
Сообщить("Завершено, в списке буферов обмена осталось объектов", СписокБуферов.Количество());