word y foxpro

Prueba esto,

ruta = 'C:\Mis documentos'
lo_word = CREATEOBJECT("Word.Application")
lc_docum­DBS(ruta)+"MINUTA 05-Jun-2003.doc"
if file(lc_docum)
lo_word.Documents.OPEN(lc_docum)
lo_word.VISIBLE = .T.
endif



Cada paso que daba era como la
noche oscura de Coelho, pero a
cada paso también el temor se
iba perdiendo, iba entendiendo
poco a poco mi noche oscura.

Carlos Woolfolk

"Israel García" escribió en el mensaje
news:%

como puedo hacer para abrir un documento de Word o Ecxel llamandolo desde
visual foxpro

Gracias a todos por su ayuda

Hay dos formas de abrir documentos microsonf, desde VFP

1 Si solo quieres verlos, esta seria con el shell
2 Si quieres hacer algo con ellos y esta es instanciando
a Word o Excel

*********************************************************
1 Con el Shell

* Declara la funcion de shell para poder Abrir documento
(Word, Excel, Acrobat...Etc), esta declaracion solo se
pone una vez, en el programa inicial

*!* -
DECLARE INTEGER ShellExecute IN shell32;
INTEGER HWND, STRING lpOperation,;
STRING lpFile, STRING lpParameters,;
STRING lpDirectory, INTEGER nShowCmd


xDctoTMP='c:\Mis Documentos\Documento.doc'
IF FILE(xDctoTmp)
x = ShellExecute(0,"open", xDctoTmp,"", "", 3)
IF x<2
=MESSAGEBOX("No se pudo Abrir el
documento"+CHR(13)+CHR(13)+ALLTRIM(Nombre_doc)
+'.'+FORMATO+;
CHR(13)+CHR(13)+"no tiene ningun
programa asociado a la extensión ",16,"Revisión de
Solicitudes ")
ENDIF
ELSE
=MESSAGEBOX("No existe el documento "+ALLTRIM
(Nombre_doc)+'.'+FORMATO,16,"Busca Documentos")
ENDIF
*********************************************************
2 Instanciando a WORD

xDcto='Agenda.doc'
IF FILE(xDcto)
oWord=CREATEOBJECT('word.application') &&Crea
objeto word.
oWord.VISIBLE=.T.
oWord.ChangeFileOpenDirectory(_xDirAgenda)
oWord.Documents.OPEN(xDcto)
THISFORM.REFRESH
ELSE
=MESSAGEBOX("No existe el documento "+ALLTRIM
(xDcto),16,"Ver Agenda GIT")
ENDIF
***********************

Espero te sea de utilidad
Saludos
Laura Borja

como puedo hacer para abrir un documento de Word o Ecxel

llamandolo desde

visual foxpro

Gracias a todos por su ayuda


.

Revisa si los siguientes artículos te sirven:


- Abrir archivo Word desde VFP
Enviado por Luis María Guayán, el 01/11/2002 12:47:07 a.m.
http://www.portalfox.com/article.php?sidW5

- Primeros pasos con OLE Automation y VFP
Enviado por Luis María Guayán, el 18/08/2001 09:45:46 p.m.
http://www.portalfox.com/article.php?sid#0


Vea tambien:

- Buscar si Word o Excel están instalados
Enviado por Luis María Guayán, el 03/04/2001 09:36:42 p.m.
http://www.portalfox.com/article.php?sid2

- Extraer constantes de un COM Library
Enviado por Esparta Palma, el 07/01/2003 12:03:29 a.m.
http://www.portalfox.com/article.php?sidc9

Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


Israel García wrote:

como puedo hacer para abrir un documento de Word o Ecxel llamandolo desde
visual foxpro

Gracias a todos por su ayuda