Run Word

27/05/2004 - 09:35 por Zorrillo Visual | Informe spam
Con todo este codigo (me parece mucho) ejecuto el word desde VFP6

No les parece demasiado codigo para ejecutar el Word ???

lcErrorAnt = ON("ERROR")
llError = .F.
ON ERROR llError = .T.
oMy = CREATEOBJECT("Word.Application")
IF llError
MESSAGEBOX("Word no está instalado",16,"Información")
ELSE
oMy.Visible=.T.
Release oMy
ENDIF
ON ERROR &lcErrorAnt

Gracias por tu apoyo Alex !!!

Preguntas similare

Leer las respuestas

#6 Zorrillo Visual
04/06/2004 - 09:25 | Informe spam
Sabia que Alex no me dejaria morir solo.

Me gusta mas WSH para evento click de boton iniciar word o excel.

Con la unica modificacion siguiente:

oShell.Run("excel.exe",SW_SHOW_NORMAL,ASINCRONICO)

y para el Word.

oShell.Run("WinWord.exe",SW_SHOW_NORMAL,ASINCRONICO)


...y si no esta instalado, pues no lo ejecuta...




"Alex Feldstein" escribió en el mensaje
news:
On Thu, 27 May 2004 16:09:26 -0600, "Zorrillo Visual"
wrote:

>otra pregunta:
>
>
>...y como puedo hacer que "inicie normalmante" como desde el icono?
>
>Es decir como hacerle para que abra el Documento1 ?
>
>...y en excel el Libro1 ?


Usando WSH:
#define SINCRONICO .T.
#define ASINCRONICO .F.
#define SW_SHOW_NORMAL 1
#define SW_SHOW_MINIMIZED 2
#define SW_SHOW_MAXIMIZED 3
oShell = createobject("WScript.Shell")
oShell.Run("excel.exe c:\temp\libro1.xls",SW_SHOW_NORMAL,ASINCRONICO)

o usando WinAPI:
DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
ShellExecute( 0, "Open", "excel.exe", "c:\temp\libro1.xls", ;
"c:\temp", 1 )



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida