Cкопировать текст из word

[larin1974]

Всем привет.Возникла проблема которую срочно надо решить.Нужно скопировать в буфер обмена определенный участок текста из word, вместе со всем изображение , текстом и формулами, заключенные между тэгом <quation1> и <quation>.Это реально сделать?

[rockedit]

Здравствуйте, я уже не помню как определить положение в тексте найденого участка, но если вам известны номера начального и конечного символов, которые нужно скопировать то можно так

.....
var W : variant;
.....
W:=CreateOleObject('Word.Application');
W.Documents.Add('c:\2.doc');
W.Selection.Start := 100;
W.Selection.end := 200;
W.Selection.Copy;
......

Ну а собственно чтоб найти чтото в тексте пишите

W.Selection.Find.Text:='текст который мы ищем';

Собственно что помнил тем и помог)