[r1x]

Сообщение от pesi

Код:

var
MSWord:variant;
begin
try
  MsWord := CreateOleObject('Word.Application');
  MsWord.Visible := True;
  MSWord.Documents.Open(ExtractFilePath(ParamStr(0))+'1.rtf');
  MSWord.Activate;
...

Ситуация следующая для общего понимая цели.
Я выкладываю документ с тестами который мне нужно программно открыть выдернуть из него вопросы помеченные тегами $$$.

PHP код:

procedure TMain.ImportTest(Filename:OleVariant);
var
  buf:String;
  STR:TMemoryStream;
begin

  WordApplication1.Connect;
  MSWord :=CreateOleObject('Word.Application');
  WordApplication1.Documents.Add(FileName,EmptyParam,EmptyParam,EmptyParam);
  WordApplication1.Visible:=False;
  WordApplication1.ActiveDocument.Content.Copy;


    repeat
    DD:=wdCollapseEnd;
    Templ:='$$$';
    D:=wdFindStop;
    WordApplication1.Selection.Find.Execute(Templ, EmptyParam, EmptyParam, EmptyParam,
                                                 EmptyParam, EmptyParam, EmptyParam, D, EmptyParam,
                                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
    StartF:=WordApplication1.Selection.End_;
    WordApplication1.Selection.Collapse(DD);

    Templ:='$$$';

    WordApplication1.Selection.Find.Execute(Templ, EmptyParam, EmptyParam, EmptyParam,
                                                 EmptyParam, EmptyParam, EmptyParam, D, EmptyParam,
                                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
    EndF:=WordApplication1.Selection.Start;
    WordApplication1.Selection.Collapse(DD);
    WordApplication1.Selection.Start:=StartF;
    WordApplication1.Selection.End_:=EndF;
    WordApplication1.Selection.Select;
      if length(WordApplication1.Selection.Text)>1 then
       wordApplication1.Selection.Copy
        else
        EndProc1:=true;

    WordApplication1.Selection.Collapse(DD);
    Buf:=clipboard.AsText;
    //  rve.Paste;
    clipboard.Clear;

    until EndProc1=true;

  wordApplication1.Quit;
  WordApplication1.Disconnect;
  end; 


В данном случии он все отлично вытаскивает вопросы но вытаскивает только текст без картинок и формул.

Плиз помогите...как скопировать все содержание документа и вставить в Рич
Вот проект на всякий случай http://dump.ru/file/4135855