Variant word_app, word_docs, word_doc;
OleVariant EmptyParam;
word_app= Variant::CreateObject("word.application");
if (!word_app.IsEmpty())
{
    word_app.OlePropertySet("Visible", true);
    word_docs= word_app.OlePropertyGet("Documents");
    word_doc= word_docs.OleFunction("Add", "", (Variant)false,    0/*wdNewBlankDocument*/, (Variant)true);
}