WORD中如何插入对象并取出?

[QQ21898580]

如题,高分相谢,我觉得OLE应该是可以取得出来的.
但不好查资料

[imafool]

mark

[ganenpingsohucom]

不知道你是指什么样的取出？如果是在word中对插入对象调用其方法或属性，可以使用shape或inlineshape.OLEFormat.Object

[yzjloveme]

我看不懂代码!帮你顶吧!

[kingzai]

Variant __fastcall TForm1::GetWordObject()
{
Variant Obj1;
AnsiString AppName="Word.Application" ;
HWND hPrevApp = ::FindWindow(NULL, "Microsoft Word");
if(!hPrevApp)
{
Obj1=CreateOleObject(AppName) ;//Word没启动就启动它返回一自动化对象
}
else
Obj1=GetActiveOleObject(AppName); //否则返回正在运行的实例自动化对象
Obj1.OlePropertySet("Visible",true);
return Obj1;
}

//---------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant V,Vdocuments,Vdocument,Vactive,vs,Vpf,Vsfname,Vps,vshape;
V=GetWordObject();
Variant VDocuments = V.OlePropertyGet("Documents") ;
VDocuments.OleFunction("Open","d:\\word1.doc");
Vdocument=VDocuments.OleFunction("Add");//,"你好"使用Documents 对象的Add方法新建档
Vactive=V.OlePropertyGet("ActiveDocument");
vshape = Vactive.OlePropertyGet("Shapes");
vshape.OleFunction("AddPicture","F:\\word.jpg");
}
//search more about word automation from msdn kb articles