Question

delphi怎样向word中指定位置插入图片

Answer 1

点插入-图片-要插入的图片组-全选图片-插入。OK。

Answer 2

下面是我写的代码，
procedure TFrmMain.addPic(fileName:String);
var
wFileName : WideString;
linkToFile, saveWithDocument, left, top, width, height, anchor : OleVariant;
begin
wFileName := WideString(fileName);
linkToFile := false;
saveWithDocument := true;
left := 0;
top := 0;
width := 100;
height := 100;
self.WordApplication.ActiveDocument.Shapes.AddPicture(wFileName, linkToFile, saveWithDocument, left, top, width, height, anchor);
end;