高手进:使用Delphi如何控制Word实现这样的操作-->在文档中编辑内容,保存为图片~~

解决方案 »

  1.   

    试试用OLEContainer打开,再用下面的程序保存为图片:
    procedure Get2Bmp(Com:TWinControl;var bmp:TBitmap);
    var sCanvas:TCanvas;
    begin
      sCanvas:=TCanvas.Create;
      try
       sCanvas.Handle:=GetDC(Com.Handle);
       bmp.width:=Com.width;
       bmp.Height:=Com.Height;
       bmp.Canvas.CopyRect(Rect(0,0,Bmp.Width-1,Bmp.Height-1),sCanvas,Rect(0,0,Bmp.Width-1,Bmp.Height-1));
      finally
       sCanvas.Free;
       sCanvas:=nil;
      end;
    end;
    //如下调用
      Get2Bmp(Ole,PublicBmp);
      

  2.   

    使用olecontainer一概可以把word文档嵌入,和在word中一样编辑吧。
      

  3.   

    xx:Variant;
    xx:=createoleobject('Word.Application');
    然后可以去看vba的文档,如何操作就简单了