[ZaaaK]

есть Word документ...тырю из него всю инфру,копируя через буфер

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm7.Button1Click(Sender: TObject);  var COM_Word: variant;     DocName, TxtName, EditFile: string;     bmp:TBitmap; begin   try   if OpenDialog1.Execute then EditFile := Form7.OpenDialog1.FileName;   try     COM_Word := CreateOLEObject('Word.Application');     COM_Word.Visible := False;     DocName := {ExtractFilePath(Application.ExeName) +} EditFile;     COM_Word.Documents.Open(DocName);     Com_Word.ActiveDocument.Select;     COM_Word.Selection.Copy;     RichEdit1.PasteFromClipboard;     COM_Word.DisplayAlerts := False;     COM_Word.Quit;    finally     COM_Word := UnAssigned;   end;    except    end; end;

а еще в этом документе картинки лежат, а RichEdit их не умеет смотреть...слышал что-то вроде что можно каждую картинку в динамический Image втыкать...но как картинки собственно можно из буфера умыкнуть? для меня это остается огромной тайной