Hipervínculo vfp
Hola quisiera que me ayudaras, mira tengo un formulario en vfp 6 y necesito que el usuario ponga el nombre de un archivo que se encuentra en word para que cuando el le de un click se pueda abrir este archivo algo así como un hipervínculo de word.
1 Respuesta
Respuesta de danyboy
1
Existen dos formas
Avisame cualquier duda
1. Mediante el objeto Shell. Application
lcFile = GETFILE("DOC")
loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute(lcFile)
RELEASE loShell
2. Mediante Automation
lcFile = GETFILE("DOC")
loWord = CREATEOBJECT("Word.Application")
loWord.Documents.Open(lcFile)
loWord.Application.Visible = .T.
RELEASE loWord
Avisame cualquier duda
1. Mediante el objeto Shell. Application
lcFile = GETFILE("DOC")
loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute(lcFile)
RELEASE loShell
2. Mediante Automation
lcFile = GETFILE("DOC")
loWord = CREATEOBJECT("Word.Application")
loWord.Documents.Open(lcFile)
loWord.Application.Visible = .T.
RELEASE loWord
Otra forma es este
oWord = CREATEOBJECT("Word.Application")
oWord.documents.open("c:miarchivo.doc", .f., .T.)
donde .t. es "solo lectura"
Es más sencillo, en cualquier método coloca el código en el botón del formulario
oWord = CREATEOBJECT("Word.Application")
oWord.documents.open("c:miarchivo.doc", .f., .T.)
donde .t. es "solo lectura"
Es más sencillo, en cualquier método coloca el código en el botón del formulario
