1c+word проблемы с поиском Документ = СоздатьОбъект("Word.Application"); Документ.Documents.Open(ИмяФайла); ном=0; служтз.ВыбратьСтроки(); Пока служтз.ПолучитьСтроку() = 1 Цикл серия=служтз.ПолучитьЗначение(служтз.НомерСтроки , "серия"); номер=служтз.ПолучитьЗначение(служтз.НомерСтроки , "номер"); паспортныеданные=сокрлп(серия)+" номер "+ сокрлп(номер); Документ.Selection.Find.Text=паспортныеданные; резалт=Документ.Selection.Find.Execute(); Если резалт<>0 тогда ном=ном+1; сообщить(ном); конецесли; КонецЦикла; Только в первом цикле находит соответствие в доковском файле, в последующих нет, хотя они есть |
Текущее время: 15:19. Часовой пояс GMT +3. |