vfp怎么控制在word文本框中填充图片？

[zhangzhang660660]

我想用vfp控制在word文本框中填充图片。word文档中第一个图形就是文本框。
WordApp.Documents(1).Shapes(1).TextFrame.TextRange.Fill.UserPicture "C:\001.jpg" 运行错误
录制了宏 但不知怎么转成vfp
求教高手~~~~

[wqj5431]

vfp_word=Createobject("Word.application") &&创建word对象
With vfp_word
.Visible=.T. &&显示word窗口
.Documents.Open('e:\asd.doc ') &&打开指定文档
.Caption="调用 Microsoft Word 导如图片实例" &&设置excel标题
.Selection.InlineShapes.AddPicture ("E:\未命名.jpg").select
Endwith