1c+word проблемы с поиском- Территория 1С

Гость

0 - 24.07.2012 - 13:46

Документ = СоздатьОбъект("Word.Application");
Документ.Documents.Open(ИмяФайла);
ном=0;
служтз.ВыбратьСтроки();
Пока служтз.ПолучитьСтроку() = 1 Цикл
серия=служтз.ПолучитьЗначение(служтз.НомерСтроки , "серия");
номер=служтз.ПолучитьЗначение(служтз.НомерСтроки , "номер");
паспортныеданные=сокрлп(серия)+" номер "+ сокрлп(номер);

Документ.Selection.Find.Text=паспортныеданные;
резалт=Документ.Selection.Find.Execute();
Если резалт<>0 тогда
ном=ном+1;
сообщить(ном);
конецесли;
КонецЦикла;

Только в первом цикле находит соответствие в доковском файле, в последующих нет, хотя они есть