Si quieres visualizar un documento de Word en un formulario puedes utilizar este truco.
_vfp.AutoYield = .F.
Public oForm
oForm = Createobject("formword")
oForm.Show()
*- Definición de la clase formword
Define Class formword
As Form
Add Object oleWebWrowser
As
IEClass
With;
Name
=
"oleWebBrowser"
Procedure Resize
This.oleWebBrowser.Height
=
This.Height
This.oleWebBrowser.Width
=
This.Width
EndProc
Procedure Init
With This.oleWebBrowser
.Top
= 0
.Left
= 0
.Navigate(Getfile("Archivos
de word (*.doc):doc"))
EndWith
This.Resize()
EndProc
EndDefine
*- Definición de la clase IEClass
Define Class IEClass
As OleControl
OleClass =
"Shell.Explorer.2"
Procedure Init
This.Navigate("about:blank")
EndProc
Procedure Refresh
Nodefault
EndProc
EndDefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
