请教delphi如何实现在Word中加入图片?

如题.高分献上.

解决方案 »

  1.   

    Clipboard.Assign(DBImage1.Picture);
    vstart:=1;
    vend:=2;
    WordDocument1.Frames.Add(WordDocument1.Range(vstart,vend));
    i:=1;
    WordDocument1.Frames.Item(i).Height:=DBImage1.Height;
    WordDocument1.Frames.Item(i).Width:=DBImage1.Width;
    WordDocument1.Frames.Item(i).Select;
    WordApplication1.Selection.Paste;
      

  2.   

    Clipboard.Assign(DBImage1.Picture);
    vstart:=1;
    vend:=2;
    WordDocument1.Frames.Add(WordDocument1.Range(vstart,vend));
    i:=1;
    WordDocument1.Frames.Item(i).Height:=DBImage1.Height;
    WordDocument1.Frames.Item(i).Width:=DBImage1.Width;
    WordDocument1.Frames.Item(i).Select;
    WordApplication1.Selection.Paste;
    不错
      

  3.   

    http://www.delphibbs.com/keylife/iblog_show.asp?xid=4601