can I run a macro when I open a specific doc ??

[ximpostor]

Hi there

I have a word doc of which I wanna run a macro automatically when it opens. I need it to open an object.. i inserted it to this doc file.

Can this be done ??

[macropod]

Yes. See: Running a macro automatically when a document is created, opened or closed

[ximpostor]

thanks alot but how to order it to open an object inserted in this word file ??

like this file.xlsx ??

[macropod]

Referencing embedded OLE objects doesn't use filenames - it uses shape or inlineshape references, such as:

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

The above code assumes the embedded object is the first InlineShape in the document.

[ximpostor]

"you are about to activate an embedded object that may contain viruses or be otherwise harmful to your computer"

How can i hide this message or auto accept it on my pc ??

i'll open this file too much & add it to the startup folder .. this message will distribute me !!

[ximpostor]

-----------------------
Dim TaskID As Long
TaskID = Shell ("file.xlsx", vbNormalFocus)
-----------------------

i got this code but i cant edit it to open an contained object !! it always open a file from my hard disk !!

[macropod]

According to http://support.microsoft.com/kb/291912:
"This feature is designed into Microsoft Office to help protect you from malicious code."

[ximpostor]

ok tell me how to open 2 objects in the same time ??

when i open the word file automatically open 2 objects ?? ,,

& Thank U very much ,,

[macropod]

AFAIK Word can only have one object opened at a time.

[ximpostor]

Why when i use this code


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

Show me this message



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



please help me ,,

[macropod]

You get the error message because your code has no error handling.

Cross-posted at: http://www.vbaexpress.com/forum/showthread.php?t=43982
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184