在wordApplication,worddocument中怎么插入图形文件和Excel对象,即worddocument.shapes.AddPicture,a

在wordApplication,worddocument中怎么插入图形文件和Excel对象,即worddocument.shapes.AddPicture,addoleobject方法的使用？(200分)<br /> worddocument.InlineShapes.AddPicture( 'd:/lsm/ljgs/图片/a.jpg',？？？)
和
worddocument.Shapes.AddOLEObject('Excel.Sheet.8','d:/lsm/test.xls',true,nil,nil,nil,nil,1,1,200,200,nil);
不知道参数怎么用？调试时出错：
Types of actual and formal var parameters must be identical
why?
十分着急！！！
huoyun@dl.dq.cnpc.com.cn

呵呵，这样不行，按下面的试试
var a:OleVariant;
filename:WideString;
linkflag,saveflag,prange:OleVariant;
begin
a:='c:/a.doc';
WordApplication1.Connect;
WordApplication1.Visible:=true;
WordDocument1.Connectto(WordApplication1.Documents.Open(a,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam));
。。。。。。
linkflag:=false;
saveflag:=false;
prange:=WordDocument1.Range;
filename:='c:/test.bmp';
WordDocument1.InlineShapes.AddPicture(filename,linkflag,saveflag,prange);

查查MSDN

menxin:
谢谢你的回答，我按照你提供的代码测试，通不过，错误为：
project project1.exe raised exception class EOleException with message '参数无效'
,process stopped,use step or run to continue!
不知道为什么？
你能详细解释吗？

图片的插入可以试试用...
public
{ Public declarations }
wordapp:variant;
implementation
uses ComObj;
------------------------------
wordapp:=CreateOLEObject('Word.Application');
WordApp.visible:=true;
image1.Picture.LoadFromFile('d:/leon/rpt/1.bmp');
ClipBoard.Assign(image1.Picture.Bitmap);
WordApp.Documents.Item(1).Bookmarks.Item('img1').range.paste;

多人接受答案了。

楼上之兄弟，能否给我份原代码？急用哦。谢谢
wj_cs_hn@0733.com