Word= Variant::CreateObject( "Word.Application" );
    Word.OlePropertySet( "Visible" ,true);
    Documents= Word.OlePropertyGet( "Documents" );
    Documents.OleProcedure( "Add" );

    Selection= Word.OlePropertyGet( "Selection" );
    Range= Selection.OlePropertyGet( "Range" );
    Document= Word.OlePropertyGet( "ActiveDocument" );
    Tables= Document.OlePropertyGet( "Tables" );
    Tables.OleProcedure( "Add" ,Range, 4 , 4 );

    Selection.OlePropertyGet( "InlineShapes" ). 
                        OleProcedure( "AddPicture" , "D:\\Картинка.jpg" );
    Word.Clear();