Текст ищется, но как мне потом узнать его позицию?

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_;

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

fnd=WordDocument1.Range.Find;
fnd.ClearFormatting;
fnd.Execute(str, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
if fnd.Found=True then
 begin
   RangeStart:=fnd.Parent.Start;
   RangeFin:=fnd.Parent.End;
///

Только вот зачем ???!

(1)
Зачем? Анализ документа по содержанию.

  RangeStart:=fnd.Parent.Start;
  RangeFin:=fnd.Parent.End;
Нет там таких параметров - Start, End.

(2) Кто тебе сказал что нету ?
Start();
End();

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

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

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

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

Sub nnn()
Set fnd = ThisDocument.Range.Find
fnd.Execute ("eee")
If fnd.Found Then
MsgBox fnd.Parent.End()
MsgBox fnd.Parent.Start()
End If
End Sub


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

(7) Смотри внимательно (6)

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

(9) А ты пробовал ?

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

(10) Ну блин, ну конечно пробовал. У меня Делфя открыта, и все, что советуете, пробую сразу же.
Действительно, 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();

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

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

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

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

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

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

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

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

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