>>Dear all;
>>
>>After the usual: oword=createobject("Word.application")
>>Is there any way (method) to set this value? (Tools-Macro-Security)
>>
>>Any hints and/or links will be greatly appreciated.
>>Thank you,
>
>I've never tried this, but I sure hope it can't be done by automation. That would defeat the whole purpose of the setting.
>
>Tamar
Using "Sendkeys" as Yuri suggested=setting defeated :)
This changes the security level from high to medium and works fine on MS-Word XP, the sendkeys order/code may vary in other versions.
Local oWord
oWord=Createobject("Word.Application")
oWord.WindowState=0
oWord.Application.Visible = .T.
oWord.Application.Activate
oWord.Wordbasic.Sendkeys("%(tms){TAB}{DOWN}{ENTER}")
oWord=.Null.