не создает объект OLE

[Максикок]

Необходимо создать объект WordArt в Word с помощью OLE

Variant vVarApp, vVarDocs;
//Создаем документ ворд
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vVarApp = CreateOleObject("Word.Application");
vVarDocs = vVarApp.OlePropertyGet("Documents");
vVarDocs.OleProcedure("Add");
vVarApp.OlePropertySet("Visible", true);
}
//Создание объекта WordArt
void __fastcall TForm1::Button5Click(TObject *Sender)
{
vVarDocs.OlePropertyGet ("Shapes").OlePropertyGet ("AddTextEffect",15, "Hello","Arial",36, 0, 0, 247, 204);
}

макрос в вба работает,а тут беда какая то,подскажите пожалуйста что не так делаю

[Stilet]

Он просто не создается или ошибка вылезает?

[Максикок]

ошибку выдает
..EOleSysError with message 'неизвестное имя'...

Variant shapes = vVarApp.OlePropertyGet(WideString("ActiveDocument"))
        .OlePropertyGet(WideString("Shapes"));
    shapes.OleFunction(WideString("AddTextEffect"), 15, WideString("Hello"),
        WideString("Arial"), 36, 0, 0, 247, 204);

все разобрался спасибо