Как подключить COM объект в Visual C++ MFC

IClassFactory* pCF;
    IUnknown* pUnk;
    CLSID clsid;
HRESULT hr=::CLSIDFromProgID(L"PROKSREADER.CARD.1",&clsid);
hr = CoGetClassObject( clsid, CLSCTX_INPROC, NULL,IID_IClassFactory, (void**) &pCF );
hr = pCF->CreateInstance( NULL, IID_IUnknown, (void**) &pUnk );
pCF->Release();

CoInitialize(NULL);
...........................................................

CoUninitialize();

CoInitialize(NULL);
HRESULT hr;
IClassFartory *pFac = NULL;
//точно также создаешь и указатель на нужный интерфейс
hr = CoGetClassObject(/*CLSID - твоего класса*/,CLSCTX_INPROC_SERVER,NULL,IID_IClassFactory,(void**)&pFac);
hr = pFac->CreateInstance(NULL,/*IID интерфейса и (void**)указатель на интерфейс*/);
//потом только через QueryInterface
...............................................................................
//освобождаешь ресурсы
if(pFac)
     pFac->Release();
...................................
CoUninitialize();

CoInitialize(NULL);
    CLSID clsid;
    HRESULT hr = CLSIDFromProgID(L"Word.Application", &clsid);

    IDispatch *pWApp;
    DISPID dispid[2];
    if(SUCCEEDED(hr))
    {
        hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pWApp);
        if(SUCCEEDED(hr))
        {
            LCID lcid = GetSystemDefaultLCID();
            lcid = 1033;
            LPOLESTR rgszNames[2];
            rgszNames[0] = L"CheckSpelling";
            rgszNames[1] = L"Word";
            pWApp->GetIDsOfNames(IID_NULL,rgszNames,2,lcid,dispid);
            WORD wFlags = DISPATCH_METHOD;
            CComVariant varResult;
            EXCEPINFO excepInfo;
            ZeroMemory(&excepInfo, sizeof(excepInfo));
            UINT uArgErr;
            DISPPARAMS dp = {NULL,NULL,0,0};
            dp.cArgs = 1;
            dp.cNamedArgs = 1;
            dp.rgdispidNamedArgs = &dispid[1];

            dp.rgvarg = new VARIANT[dp.cArgs];
            dp.rgvarg[0].vt = VT_BSTR;
            dp.rgvarg[0].bstrVal = SysAllocString(OLESTR("Hello"));
            //LOCALE_SYSTEM_DEFAULT
            hr = pWApp->Invoke(dispid[0],IID_NULL, lcid, wFlags, &dp, &varResult, &excepInfo, &uArgErr);
                    SysFreeString(dp.rgvarg[0].bstrVal);
            pWApp->Release();
            delete [] dp.rgvarg;
               }

HRESULT getDictionary(LPDISPATCH app, long id, LPDISPATCH* ppd)
{
    if(app == NULL || ppd == NULL) return E_INVALIDARG;

    HRESULT hr = S_OK;
    DISPID dispid = 0;
    CComBSTR bstr = _T("Languages");
    if(SUCCEEDED(hr=app->GetIDsOfNames(IID_NULL,&bstr,1,0,&dispid)))
    {
        EXCEPINFO excepInfo = {0};
        VARIANT varResult;
        VariantInit(&varResult);

        DISPPARAMS dispparams;
        memset(&dispparams,0,sizeof(dispparams));

        UINT uArgErr =  -1;
        hr = app->Invoke(dispid,IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &varResult, &excepInfo, &uArgErr);
        if(SUCCEEDED(hr))
        {  
            LPDISPATCH pLanguages = NULL;
            hr = varResult.pdispVal->QueryInterface(IID_IDispatch, (void**)&pLanguages);
            VariantClear(&varResult);

            if(SUCCEEDED(hr))
            {
                DISPID dispid = 0;
                CComBSTR bstr = _T("Item");
                if(SUCCEEDED(hr=pLanguages->GetIDsOfNames(IID_NULL,&bstr,1,0,&dispid)))
                {
                    dispparams.cArgs = 1;
                    dispparams.rgvarg = new VARIANT[dispparams.cArgs];
                    dispparams.rgvarg[0].vt = VT_I4;
                    dispparams.rgvarg[0].lVal = id;
       
                    hr = pLanguages->Invoke(dispid,IID_NULL, 0, DISPATCH_METHOD, &dispparams, &varResult, &excepInfo, &uArgErr);
                    delete [] dispparams.rgvarg;
               
                    if(SUCCEEDED(hr))
                    {
                        LPDISPATCH pDictionary = NULL;
                        hr = varResult.pdispVal->QueryInterface(IID_IDispatch, (void**)&pDictionary);
                        VariantClear(&varResult);
               
                        if(SUCCEEDED(hr))
                        {
                            DISPID dispid = 0;
                            CComBSTR bstr = _T("ActiveSpellingDictionary");
                            if(SUCCEEDED(hr=pDictionary->GetIDsOfNames(IID_NULL,&bstr,1,0,&dispid)))
                            {
                                memset(&dispparams,0,sizeof(dispparams));
                                uArgErr =  -1;
                                hr = pDictionary->Invoke(dispid,IID_NULL, 0, DISPATCH_PROPERTYGET, &dispparams, &varResult, &excepInfo, &uArgErr);
                                if(SUCCEEDED(hr)){
                                    hr = varResult.pdispVal->QueryInterface(IID_IDispatch, (void**)ppd);
                                    VariantClear(&varResult);
                                }
                            }
                            pDictionary->Release();
                        }
                    }
                }
                pLanguages->Release();
            }
        }
    }
    return hr;
}

.......

::CoInitialize(NULL);

    CLSID clsid;
    HRESULT hr = CLSIDFromProgID(L"Word.Application", &clsid);

    IDispatch *pWApp;
    if(SUCCEEDED(hr))
    {
        hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pWApp);
   
        if(SUCCEEDED(hr))
        {
            LPDISPATCH pd = NULL;
            if(SUCCEEDED(hr=getDictionary(pWApp, 1033 /*wdEnglishUS*/, &pd)))
            {
                DISPID dispid = 0;            
                CComBSTR bstr = _T("CheckSpelling");
                pWApp->GetIDsOfNames(IID_NULL,&bstr,1,0,&dispid);
               
                DISPPARAMS dp = {0};   
                dp.cNamedArgs = 4;
                dp.cArgs = 4;
                        dp.rgdispidNamedArgs = new DISPID[dp.cNamedArgs];
                dp.rgvarg = new VARIANT[dp.cArgs];
   
                dp.rgdispidNamedArgs[0] = 0;
                CComBSTR text = _T("hello");
                dp.rgvarg[0].vt = VT_BSTR;
                dp.rgvarg[0].bstrVal = text;

                VARIANT CustomDictionary;
                CustomDictionary.vt = VT_EMPTY;
                CustomDictionary.bstrVal = NULL;

                dp.rgdispidNamedArgs[1] = 1;
                dp.rgvarg[1].vt = VT_VARIANT|VT_BYREF;
                dp.rgvarg[1].pvarVal = &CustomDictionary;

                VARIANT varIgnoreUppercase;
                varIgnoreUppercase.vt = VT_BOOL;
                varIgnoreUppercase.boolVal = VARIANT_TRUE;

                dp.rgdispidNamedArgs[2] = 2;
                dp.rgvarg[2].vt = VT_VARIANT|VT_BYREF;
                dp.rgvarg[2].pvarVal = &varIgnoreUppercase;

                VARIANT varMainDictionary;
                varMainDictionary.pdispVal = pd;
                varMainDictionary.vt = VT_DISPATCH;

                dp.rgdispidNamedArgs[3] = 3;
                dp.rgvarg[3].vt = VT_VARIANT|VT_BYREF;
                dp.rgvarg[3].pvarVal = &varMainDictionary;

                UINT uArgErr = -1;
                CComVariant varResult;
                EXCEPINFO excepInfo = {0};
                hr = pWApp->Invoke(dispid, IID_NULL, 0, DISPATCH_METHOD, &dp, &varResult, &excepInfo, &uArgErr);  
                   delete [] dp.rgvarg;
            }
                        pWApp->Release();
        }
    }