Run Word

On Thu, 27 May 2004 01:35:22 -0600, "Zorrillo Visual"
wrote:

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 !!!

Mucho código? No realmente.
Para instanciar MS Word solo hace falta:

oWord = CREATEOBJECT("Word.Application")

El resto de tu ejemplo es programación defensiva. Un poco anticuada ya
que hoy dia es mejor usar Try..Catch pero lo tuyo funciona. Y siempre
se debe tener control sobre los posibles errores antes de que
aparezcan. Es siempre mejor que los maneje el programa y no el usuario
<g>



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)

Gracias de nuevo,

No lo habia visto desde ese punto de vista.

Estoy usando VFP6 SP5

Saludos,


"Alex Feldstein" escribió en el mensaje
news:

On Thu, 27 May 2004 01:35:22 -0600, "Zorrillo Visual"
wrote:

>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 !!!


Mucho código? No realmente.
Para instanciar MS Word solo hace falta:

oWord = CREATEOBJECT("Word.Application")

El resto de tu ejemplo es programación defensiva. Un poco anticuada ya
que hoy dia es mejor usar Try..Catch pero lo tuyo funciona. Y siempre
se debe tener control sobre los posibles errores antes de que
aparezcan. Es siempre mejor que los maneje el programa y no el usuario
<g>



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)

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 ?



"Zorrillo Visual" escribió en el mensaje
news:uvE$

Gracias de nuevo,

No lo habia visto desde ese punto de vista.

Estoy usando VFP6 SP5

Saludos,


"Alex Feldstein" escribió en el mensaje
news:
> On Thu, 27 May 2004 01:35:22 -0600, "Zorrillo Visual"
> wrote:
>
> >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 !!!
>
>
> Mucho código? No realmente.
> Para instanciar MS Word solo hace falta:
>
> oWord = CREATEOBJECT("Word.Application")
>
> El resto de tu ejemplo es programación defensiva. Un poco anticuada ya
> que hoy dia es mejor usar Try..Catch pero lo tuyo funciona. Y siempre
> se debe tener control sobre los posibles errores antes de que
> aparezcan. Es siempre mejor que los maneje el programa y no el usuario
> <g>
>
>
>
> 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)

No te sirve RUN ?

Por ejemplo RUN /N Calc para la calculadora.

Suerte,

Marco Jacobo
Villa Dolores (Córdoba - Argentina)

"Zorrillo Visual" escribió en el mensaje
news:%

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 ?



"Zorrillo Visual" escribió en el mensaje
news:uvE$
> Gracias de nuevo,
>
> No lo habia visto desde ese punto de vista.
>
> Estoy usando VFP6 SP5
>
> Saludos,
>
>
> "Alex Feldstein" escribió en el mensaje
> news:
> > On Thu, 27 May 2004 01:35:22 -0600, "Zorrillo Visual"
> > wrote:
> >
> > >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 !!!
> >
> >
> > Mucho código? No realmente.
> > Para instanciar MS Word solo hace falta:
> >
> > oWord = CREATEOBJECT("Word.Application")
> >
> > El resto de tu ejemplo es programación defensiva. Un poco anticuada ya
> > que hoy dia es mejor usar Try..Catch pero lo tuyo funciona. Y siempre
> > se debe tener control sobre los posibles errores antes de que
> > aparezcan. Es siempre mejor que los maneje el programa y no el usuario
> > <g>
> >
> >
> >
> > 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)
>
>

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)