error with the AutoActive object code !!

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 ?? :banghead:

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

: pray2:

Cross-posted at: http://www.msofficeforums.com/word-v...en-i-open.html

For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Please do not cross-post. You are getting help with that other thread.