Запись строки в doc через CLSID - C/C++ - Ответ 10194648

HRESULT AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp,
    LPOLESTR ptName, int cArgs...)
{
    // Begin variable-argument list...
    va_list marker;
    va_start(marker, cArgs);
 
    if (!pDisp) {
        MessageBox(NULL, L"NULL IDispatch passed to AutoWrap()",
            L"Error", 0x10010);
        _exit(0);
    }
 
    // Variables used...
    DISPPARAMS dp = { NULL, NULL, 0, 0 };
    DISPID dispidNamed = DISPID_PROPERTYPUT;
    DISPID dispID;
    HRESULT hr;
    char buf[200];
    char szName[200];
 
    // Convert down to ANSI
    WideCharToMultiByte(CP_ACP, 0, ptName, -1, szName, 256, NULL, NULL);
 
    // Get DISPID for name passed...
    hr = pDisp->GetIDsOfNames(IID_NULL, &ptName, 1, LOCALE_USER_DEFAULT,
        &dispID);
    if (FAILED(hr)) {
        sprintf(buf,
            "IDispatch::GetIDsOfNames("%s") failed w/err0x%08lx",
            szName, hr);
        MessageBox(NULL, toBSTR(buf), L"AutoWrap()", 0x10010);
        _exit(0);
        return hr;
    }
 
    // Allocate memory for arguments...
    VARIANT *pArgs = new VARIANT[cArgs + 1];
 
    // Extract arguments...
    for (int i = 0; i<cArgs; i++) {
        pArgs[i] = va_arg(marker, VARIANT);
    }
 
    // Build DISPPARAMS
    dp.cArgs = cArgs;
    dp.rgvarg = pArgs;
 
    // Handle special-case for property-puts!
    if (autoType & DISPATCH_PROPERTYPUT) {
        dp.cNamedArgs = 1;
        dp.rgdispidNamedArgs = &dispidNamed;
    }
 
    // Make the call!
    hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, autoType,
        &dp, pvResult, NULL, NULL);
    if (FAILED(hr)) {
        sprintf(buf,
            "IDispatch::Invoke("%s"=%08lx) failed w/err 0x%08lx",
            szName, dispID, hr);
        MessageBox(NULL, toBSTR(buf), L"AutoWrap()", 0x10010);
        _exit(0);
        return hr;
    }
    // End variable-argument section...
    va_end(marker);
 
    delete[] pArgs;
 
    return hr;
 
}
 
int main(int argc, char* argv[])
{
    // Initialize COM for this thread...
    CoInitialize(NULL);
 
    // Get CLSID for Word.Application...
    CLSID clsid;
    HRESULT hr = CLSIDFromProgID(L"Word.Application", &clsid);
    if (FAILED(hr)) {
        ::MessageBox(NULL, L"CLSIDFromProgID() failed", L"Error",
            0x10010);
        return -1;
    }
 
    // Start Word and get IDispatch...
    IDispatch *pWordApp;
    hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER,
        IID_IDispatch, (void **)&pWordApp);
    if (FAILED(hr)) {
        ::MessageBox(NULL, L"Word not registered properly",
            L"Error", 0x10010);
        return -2;
    }
 
    // Make Word visible
    {
        VARIANT x;
        x.vt = VT_I4;
        x.lVal = 1;
        AutoWrap(DISPATCH_PROPERTYPUT, NULL, pWordApp, L"Visible", 1,
            x);
    }
 
    // Get Documents collection
    IDispatch *pDocs;
    {
        VARIANT result;
        VariantInit(&result);
        AutoWrap(DISPATCH_PROPERTYGET, &result, pWordApp, L"Documents",
            0);
 
        pDocs = result.pdispVal;
    }
 
    // Call Documents.Open() to open C:\Doc1.doc
    IDispatch *pDoc;
    {
        VARIANT result;
        VariantInit(&result);
        VARIANT x;
        x.vt = VT_BSTR;
        x.bstrVal = ::SysAllocString(L"E:\\1.doc");
 
        AutoWrap(DISPATCH_METHOD, &result, pDocs, L"Open", 1, x);
        pDoc = result.pdispVal;
    SysFreeString(x.bstrVal);
    }
pDoc->Release();
    pDocs->Release();
    pWordApp->Release();
 
 
    // Uninitialize COM for this thread...
    CoUninitialize();
 
    return 0;