К списку форумов К списку тем
Регистрация    Правила    Главная форума    Поиск   
Имя: Пароль:
Рекомендовать в новости

1c+word проблемы с поиском

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

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

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





К списку вопросов






Copyright ©, Все права защищены