Delphi - OLE - Word: Как узнать позицию найденной строки? #247651

Текст ищется, но как мне потом узнать его позицию? WordDocument1.Range.Find.ClearFormatting; if WordDocument1.Range.Find.Execute(str, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam) then   begin   ???     Хотелось бы чего-нибудь вроде: RangeStart:=WordDocument1.Range.Find.Start; RangeFin:=WordDocument1.Range.Find.End_;

Позицию в чем ? в доке/парагрофе/... ? А так Только вот зачем ???!

Зачем? Анализ документа по содержанию.   RangeStart:=fnd.Parent.Start;   RangeFin:=fnd.Parent.End; Нет там таких параметров - Start, End.

Кто тебе сказал что нету ? Start; End; "Зачем? Анализ документа по содержанию" - а зачем позиция ? и позиция какая док/секция/контент/параграф и т.д. и т.п.

Найти позицию в документе. Start тоже нет. И End нет. Пробовал. Позиция для выдирания данных, следующих за найденной строкой.

Попробуй запустить Запись макроса - тебе Ворд нарисует макрос, где все методы показаны. Я так делал.

Да ну, вот тебе рабочий код на васике

Пробовал запись макроса, там пишет просто Execute после установки параметров. Ребята, мне на Делфях надо, через Ole... А оттуда Start/End нет/не видит в ворде почему-то :(

Смотри внимательно

Ну и? В делфях есть WordDocument1.Range.Find.Parent, но свойств Start, Start, End, End нет, т. е. WordDocument1.Range.Find.Parent.Start/WordDocument1.Range.Find.Parent.Start не катит.

А ты пробовал ?

Parent это Range, а у ранжа есть и старт и енд

Ну блин, ну конечно пробовал. У меня Делфя открыта, и все, что советуете, пробую сразу же. Действительно, WordDocument1.Range.Start есть, а WordDocument1.Range.Find.Parent.Start нет почему-то. У меня вот из-за этого-то и возник вопрос для открытия темы.

Нету дельфи :( Вот джабаскр word=new ActiveXObject("Word.Application"); doc=word.Documents.Open("c:/find.doc"); fnd = doc.Range.Find; fnd.Execute ("eee"); if (fnd.Found==true){ WScript.Echo(fnd.Parent.End); WScript.Echo(fnd.Parent.Start); } doc.close; word.quit;

WScript.Echo(fnd.Parent.End); WScript.Echo(fnd.Parent.Start); А это что за извращение еще?

Нет такого в делфях - WScript

Дак это понятно, это просто вывожу на экран понятно что там messagebox

Тогда я чего-то не понимаю... В чем смысл ? Свой кусок кода я привел в

И все-таки, что за глюк - ?

Сделай попробуй переменные типа объект (ну как там в дельфи правильно, хотя вроде в паскале нет приведения типов, но х.з.) fnd:=WordDocument1.Range.Find; и Rang=fnd.Parent;

Так съел Start, но значение всегда 0.

Слушай, вроде как заработало.   fnd.Parent.Select;   rang:=fnd.Parent;   d1:=rang.Start;   d2:=rang.End;

Большое спасибо за ответы!