Как работать с OLE в Excel/VBA

Формулировка задачи:

Помогите пожалуста!
возникла проблема и незнаю как решить.
Нужно как-то управлять Word'ом через VBA
на лист добавляется документ:

Index = ActiveSheet.OLEObjects.Add(ClassType:=, Filename:= _
        , _
        Link:=False, DisplayAsIcon:=True, IconFileName:= _
        , _
        IconIndex:=, IconLabel:=).Index

Но как с ним работать неизвестно... OLEObjects(Index).Object отказывается работать
хотя на форумах так и советуют
Подскажите что не так, может быть нужно какую-то опцию включить.
или как добавить OLE на лист, по-другому?

Решение задачи: «Как работать с OLE в Excel/VBA»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> Test()
    
    <font color="blue">Dim</font> x <font color="blue">As</font> OLEObject
    
    <font color="blue">Set</font> x = ActiveSheet.OLEObjects.Add( _
        Filename:=<font color="teal">"C:\1.doc"</font>, _
        Link:=False, _
        DisplayAsIcon:=True, _
        IconFileName:=<font color="teal">"C:\WINDOWS\Installer\{90110419-6000-11D3-8CFE-0150048383C9}\wordicon.exe"</font>, _
        IconIndex:=<font color="darkblue"><b>0</b></font>, _
        IconLabel:=<font color="teal">"C:\1.doc"</font>)

    x.Verb

<font color="blue">End</font> <font color="blue">Sub</font>

                        