2,495
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button2Click(Sender: TObject);
var WordApp: Variant;
begin
if OpenDialog1.Execute then begin
WordApp := CreateOleObject('Word.Application'); //创建word对象
WordApp.Documents.open(OpenDialog1.FileName); //打开一个word文档
wordapp.activedocument.select; //选取打开的word文档中全部内容
wordapp.selection.copy; //拷贝选取的内容
WordApp.Documents.open('c:\VPN1.doc');//打开接收得制内容的文件
WordApp.Selection.Paste;
WordApp.ActiveDocument.Save;
WordApp.Quit; //关闭对象
varclear(WordApp);
end;
end;
uses
Jpeg,ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
pic:tmemorystream;
jpg:TJpegImage;
wdApp,doc:Variant;
begin
pic:=tmemorystream.Create;
jpg:=TJpegImage.Create;
if SaveDialog1.Execute then begin
try
with ADOQuery1 do
begin
TBlobField(FieldByName('xpict')).SaveToStream(pic);
end;
pic.Position:=0;
jpg.LoadFromStream(pic);
DBImage1.Picture.Bitmap.Assign(jpg);
DBImage1.CopyToClipboard;
wdApp:=CreateOleObject('Word.Application');
doc:=wdApp.Documents.Add;
doc.Range.Paste;
doc.SaveAs(SaveDialog1.FileName);
wdApp.quit;
finally
pic.Free;
jpg.Free;
varclear(wdApp);
end;
end;
end;