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);
}