FindText в табличном документе через OLE

Всем доброго дня. Помогите: не получается найти текст в OLE-табличном документе.

Значение Стр="Польша". В табличном документе в области поиска (ОбластьНаименованиеКраткое) значение есть: "ПОЛЬША".

         ТекущаяОбласть=ТабличныйДокумент.FindText(ВРег(Стр),,ОбластьНаименованиеКраткое,Ложь,Истина,Истина,Истина);

всегда возвращает: Неопределено.

Что я не так делаю?

Полный текст кода:

Функция НайтиСоздатьСтрануПроисхождения(Стр)

    УдСпрКлассификаторСтранМира = Уд.Справочники.КлассификаторСтранМира;
    УдСтранаПроисхождения=Неопределено;
    УдСтранаПроисхождения=УдСпрКлассификаторСтранМира.НайтиПоНаименованию(ВРег(Стр),Истина);
    Если СокрЛП(УдСтранаПроисхождения.Наименование)<>"" Тогда
        //нашли Страну происхождения
        //Сообщить("Нашли Страну происхождения: "+Стр);
    Иначе



        //надо создать Страну происхождения
         ТабличныйДокумент=УдСпрКлассификаторСтранМира.ПолучитьМакет("КлассификаторСтранМира");

         ОбластьКодЧисловой         = ТабличныйДокумент.Areas.КодЧисловой;
         ОбластьНаименованиеКраткое = ТабличныйДокумент.Areas.НаименованиеКраткое;
         ОбластьНаименованиеПолное  = ТабличныйДокумент.Areas.НаименованиеПолное;
         ОбластьКодАльфа2           = ТабличныйДокумент.Areas.КодАльфа2;

         ТекущаяОбласть=ТабличныйДокумент.FindText(ВРег(Стр),,ОбластьНаименованиеКраткое,Ложь,Истина,Истина,Истина);

         Если НЕ ТекущаяОбласть=Неопределено Тогда

             КодЧисловой         = ТабличныйДокумент.Area(ТекущаяОбласть.Верх, ОбластьКодЧисловой.        Лево, ТекущаяОбласть.Низ, ОбластьКодЧисловой.        Право).Текст;
             НаименованиеКраткое = СокрЛП(ТабличныйДокумент.Area(ТекущаяОбласть.Верх, ОбластьНаименованиеКраткое.Лево, ТекущаяОбласть.Низ, ОбластьНаименованиеКраткое.Право).Текст);
             НаименованиеПолное  = СокрЛП(ТабличныйДокумент.Area(ТекущаяОбласть.Верх, ОбластьНаименованиеПолное. Лево, ТекущаяОбласть.Низ, ОбластьНаименованиеПолное. Право).Текст);
             КодАльфа2           = ТабличныйДокумент.Area(ТекущаяОбласть.Верх, ОбластьКодАльфа2.          Лево, ТекущаяОбласть.Низ, ОбластьКодАльфа2.          Право).Текст;

             УдСтранаПроисхождения=УдСпрКлассификаторСтранМира.СоздатьЭлемент();
             УдСтранаПроисхождения.Код=КодЧисловой;
             УдСтранаПроисхождения.Наименование=НаименованиеКраткое;
             УдСтранаПроисхождения.НаименованиеПолное=НаименованиеПолное;
             УдСтранаПроисхождения.КодАльфа2=КодАльфа2;

             Попытка
                 УдСтранаПроисхождения.Записать();
                 УдСтранаПроисхождения=УдСпрКлассификаторСтранМира.НайтиПоНаименованию(ВРег(Стр),Истина);
                 Сообщить("СОЗДАНА СТРАНА ПРОИСХОЖДЕНИЯ: "+Стр);
             Исключение
                 Сообщить("НЕУДАЧА СОЗДАНИЯ СТРАНЫ ПРОИСХОЖДЕНИЯ: "+Стр+"!",СтатусСообщения.Важное);
             КонецПопытки;

         КонецЕсли;
     КонецЕсли;

    Возврат УдСтранаПроисхождения;

КонецФункции