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)