FoxPro/Visual FoxPro - Mostrar un documento de Word en un Formulario

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