Question

在delphi中怎样可以快速的实现将图片粘贴到word

Answer 1

uses
..., ComOBJ;
...

procedure TForm1.Button1Click(Sender: TObject);
var
fnm,inm: String;
WordApp: Variant;
begin
if OpenDialog1.Execute then begin //获得Word文档名
fnm := OpenDialog1.FileName;
if OpenDialog1.Execute then begin //获得图片文件名
inm := OpenDialog1.FileName;
WordApp := CreateOleObject('Word.Application');
try
WordApp.Visible := False;
WordApp.Documents.Open(fnm);
WordApp.Selection.InlineShapes.AddPicture(inm);
WordApp.Application.DisplayAlerts := False;
WordApp.Documents.Save;
finally
WordApp.Documents.Close;
WordApp.Quit;
end;
end;
end;
end;

Answer 2

首先要创建一个WORD文档,然后在调用WORD的内部命令,才能搞成的,不是楼上说那样简单.很麻烦.我有操作WORD的全部代码(很早以前摸索WORD做的),也算是一个例程吧.想要可联系

Answer 3

利用剪贴板....
即把图片 COPYTOCLIPBOARD...
再到WORD里...贴