高手进:使用Delphi如何控制Word实现这样的操作-->在文档中编辑内容,保存为图片~~ 高手进:使用Delphi如何控制Word实现这样的操作-->在文档中编辑内容,保存为图片~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试试用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); 使用olecontainer一概可以把word文档嵌入,和在word中一样编辑吧。 xx:Variant;xx:=createoleobject('Word.Application');然后可以去看vba的文档,如何操作就简单了 delphi 编辑器 设置问题 fastreport,怎样将sum产生的合计数放到groupheader上 卸载程序命令? ●●●如何在两个含有密码的ACCESS数据库之间进行查询操作(解决问题则另加100分)●●● 我在上招聘网站求职的时候,这个公司--- "珠海捷朗菱网络科技有限公司 "---老是挡我的视线,有没有这个公司的人,我在这里骂你们老板缺德 消息处理,为什么不同的结果 ?? 问一下!!!! 选中一行代码用什么快捷键 关于VCLZIP2.22的问题 大家来看看 laikankan.myrice.com socket的使用 我加赏100分
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);
xx:=createoleobject('Word.Application');
然后可以去看vba的文档,如何操作就简单了