WORD tables (Autowrap стиль) - C/C++ - Ответ 7875294

Variant vApp = CreateOleObject("Word.Application");
  vApp.OlePropertySet("Visible", true);
  Variant vVarDocs = vApp.OlePropertyGet("Documents");
  vVarDocs.OleProcedure("Add");
  Variant vDoc = vVarDocs.OleFunction("Item", 1);
  Variant vVarPars = vDoc.OlePropertyGet("Paragraphs");
  vVarPars.OleProcedure("Add");    // Добавляем параграф:
  Variant vPar = vVarPars.OleFunction("Item",1); // Работаем с первым параграфом:
  Variant vRan = vPar.OlePropertyGet("Range");
  vDoc.OlePropertyGet("Tables").OleProcedure("Add", vRan, 34, 15, 1, 1);
  Variant vTab = vDoc.OlePropertyGet("Tables").OleFunction("Item",1);
  Variant vCell = vTab.OleFunction("Cell", 1, 1);

IDispatch *pWTables;
    {
        VARIANT result;
        VariantInit(&result);
        AutoWrap(DISPATCH_PROPERTYGET, &result, pWActiveDoc, L"Tables", 0);
        pWTables=result.pdispVal;
    }
IDispatch *pWRng;
    {
        VARIANT result;
        VariantInit(&result);
        AutoWrap(DISPATCH_PROPERTYGET, &result, pSel, L"Range", 0);
        pWRng = result.pdispVal;
    }

vDoc.OlePropertyGet("Tables").OleProcedure("Add", vRan, 34, 15, 1, 1);

{
        VARIANT ct[2];
                ct[0].vt = VT_I4;
        ct[0].lVal = 2;
        ct[1].vt = VT_I4;
        ct[1].lVal = 4;
        AutoWrap(DISPATCH_METHOD, NULL, pWTables, L"Add", 3, pWRng , ct[0], ct[1]);
        VariantClear(&ct[0]);
        VariantClear(&ct[1]);
    }

ct[0].vt = VT_DISPATCH;
ct[0].pdispVal = pWRng;