怎么像操作Word一样去操作Word文档里面一个Word类型的OLE对象（100分求急救）

    _Application wordapp;    Documents docs;    _Document doc;    Range aRange;    // 读取OLE对象    InlineShapes inlineShapes;    InlineShape  inlineSpape;        COleVariant vTrue((short)TRUE),            vFalse((short)FALSE),            vOpt((long)DISP_E_PARAMNOTFOUND,  VT_ERROR);         Selection wdSel;         DWORD dwTick = GetTickCount();    if (!wordapp.CreateDispatch(L"Word.application",NULL))    {        AfxMessageBox(L"office is not installed." , MB_OK|MB_SETFOREGROUND);         CoUninitialize();        return FALSE;    }    dwTick = GetTickCount() - dwTick;    TRACE(_T("CreateDispatch time is : %d\r\n"), dwTick);        // 把word设置成不可见    wordapp.SetVisible(FALSE);        // 创建文档     docs = wordapp.GetDocuments();    dwTick = GetTickCount();    doc = docs.Open(COleVariant(m_strFilePath),vFalse,vTrue,vFalse,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt);      dwTick = GetTickCount() - dwTick;    TRACE(_T("Open Word's time is : %d\r\n"), dwTick);    // 读取OLE对象    IDispatch *dispatch = doc.GetInlineShapes();    if(dispatch)    {        inlineShapes.AttachDispatch(dispatch);    }     int nOLECount = inlineShapes.GetCount();    if(nOLECount>0)    {        for (int i = 1; i <= nOLECount; i++)        {            inlineSpape.AttachDispatch(inlineShapes.Item((long)i));            OLEFormat OLEForm;            dispatch = inlineSpape.GetOLEFormat();            if (dispatch)            {                OLEForm.AttachDispatch(dispatch);            }////////////// 问题出现处//////////////////////////        }    }    doc.Close(vOpt,vOpt,vOpt);    wordapp.Quit(vOpt,vOpt,vOpt);    aRange.DetachDispatch();    inlineSpape.DetachDispatch();    inlineShapes.DetachDispatch();    doc.DetachDispatch();    docs.DetachDispatch();    wordapp.DetachDispatch();            return TRUE;