Как в Excel ВНЕДРИТЬ("Word.Document.12";"") объект с помощью макроса - VB

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

Необходимо создать объект ("Word.Document.12";"") с помощью макроса и вставить в объект текст, методом copy - paste

Решение задачи: «Как в Excel ВНЕДРИТЬ("Word.Document.12";"") объект с помощью макроса»

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

                            Private Sub CommandButton1_Click()
Range("A1").Copy
Dim x As OLEObject
Set x = ActiveSheet.OLEObjects.Add(ClassType:="Word.Document", Link:=True _
        , DisplayAsIcon:=False, Left:=433.5, Top:=129, Width:=171, Height:=82.5)


'дальнейшее просто для иллюстрации работы с внедренным документом
x.Verb              'активировать внедренный документ
x.Object.Range.Paste

ActiveCell.Activate 'вернуться к текущему листу
End Sub

                        