MS Word и 1С

В общем, сделал некое подобие "Т9" для 1С на УФ, при нажатии кнопки 1С создает ком объект Word и прогоняет текст на наличие орфографических ошибок - потом меняет слова на правильные (по своему мнению) и внизу выводит список строк, в которых ошибка и слова с ошибкой. Проблема в том, что по выполнению этой задачи остается висеть фоновый процесс word, который можно только убить. Проблема усугубляется тем, что текст проверяется в табличной части, а значит цикл по количеству строк.

Где-то неправильно делаю?

И раз пошла такая пляска - может кто подскажет другой способ проверки орфографии на УФ?

В функцию подается Текст - строка и номер строки табличной части.
В начале модуля определена переменная ОбъектMSWord

Функция ПроверкаОрфографии(Текст, НомерСтроки)
    // Создадим объект MS Word, он должен быть установлен
    Если ОбъектMSWord = Неопределено Тогда
        Попытка
            ОбъектMSWord = Новый COMОбъект("Word.Application");
        Исключение
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Microsoft Word не установлен!'"));
            Возврат Текст;
        КонецПопытки;
    КонецЕсли;

    НаименованиеПроектаДляПроверки = Текст;
    СловаДляЗамены = Новый ТаблицаЗначений;
    СловаДляЗамены.Колонки.Добавить("Слово");
    СловаДляЗамены.Колонки.Добавить("СловоДляЗамены");
    СловаДляЗамены.Колонки.Добавить("Представление");

    НетОшибок = ОбъектMSWord.CheckSpelling(Текст);
    КоличествоОшибок = 0;
    СловаОшибки = "";
    Если НЕ НетОшибок Тогда // текст содержит ошибки. Проверим каждое слово и выведем ошибочные.
        Док = ОбъектMSWord.Documents.Add(); // Создадим новый документ
        Область = Док.Range(0,0); // Получим пустую область в начале документа
        Область.InsertBefore(Текст); // Добавим в документ текст
            Для каждого Слово Из Область.Words Цикл
            СловоДляПроверки = СокрЛП(Слово.Text);
            НетОшибок = ОбъектMSWord.CheckSpelling(СловоДляПроверки);
            Если НЕ НетОшибок Тогда // Слово ошибочно
                НаименованиеПроектаДляПроверки = СтрЗаменить(НаименованиеПроектаДляПроверки, СловоДляПроверки, "<span style=""color:red"">" + СловоДляПроверки + "</span>");
                // покажем возможные замены неправильного слова
                СтрокаВариантов = "";
                // Получим варианты правописания
                Варианты = Слово.GetSpellingSuggestions( ,1, ,0);
                Первый = Истина;
                Для каждого Вариант Из Варианты Цикл
                    Если ЗначениеЗаполнено(Вариант.Name) Тогда
                        СтрокаВариантов = СтрокаВариантов + ", " + Вариант.Name;
                        НоваяСтрока = СловаДляЗамены.Добавить();
                        НоваяСтрока.Слово = СловоДляПроверки;
                        НоваяСтрока.СловоДляЗамены = Вариант.Name;
                        НоваяСтрока.Представление = СловоДляПроверки + " " + Вариант.Name;
                        Если Первый = Истина Тогда
                            Текст = СтрЗаменить(Текст,СловоДляПроверки,Вариант.Name);
                            Первый = Ложь;
                        КонецЕсли;
                    КонецЕсли;
                КонецЦикла;
                Если ЗначениеЗаполнено(СтрокаВариантов) Тогда
                    КоличествоОшибок = КоличествоОшибок + 1;
                    СловаОшибки = СловаОшибки + СловоДляПроверки + ", ";
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        Док.Close(0,,); // закроем документ без сохранения wdDoNotSaveChanges
        ОбъектMSWord.Application.Quit(0);// Пытаемся закрыть процесс MS Word
    Если КоличествоОшибок > 0 Тогда
        Сообщить ("Ошибки найдены в " + НомерСтроки + " строке в " + КоличествоОшибок + " словах: " + СловаОшибки);
        КонецЕсли;
    КонецЕсли;
    Возврат Текст;
КонецФункции