Why when i use this code

[vba]Private Sub Document_Open()

Dim objOLE As Word.OLEFormat
Set objOLE = ActiveDocument.InlineShapes(1).OLEFormat
objOLE.Activate

End Sub
[/vba]
Show me this message

http://www3.0zz0.com/2012/10/12/19/344389744.jpg

And if i choose "No" This error appears ??

http://www3.0zz0.com/2012/10/12/19/354387903.png