Visualizar Documento de word y excel dentro de un formulario

[Edwin Duran]

Buen dia

He buscado en este foro y en google como visualizar un documento de word y excel dentro de un formulario donde pueda modificar y guardar los cambios, ya que dicho archivo lo debo almacenar en la base de datos.

anexo ejemplo encontrado de lo que quiero pero este esta dando un error que no he podido solucionar, y es al momento que le digo que visualice el menu tab de excel

SAludos 

[Edwin Duran]

Encontré esta macro para excel pero no he podido ejecutarla desde vfp anexo link y ejemplo en excel

https://macrosenexcel.com/como-mostrar-ocultar-el-ribbon-o-menu/

https://stackoverflow.com/questions/15378586/difference-between-displaydocumentactiontaskpane-and-visible-property

[Zarlu]

Buenas tardes Edwin Duran!

Qué es lo que específicamente requieres?

Ver el menú o ejecutar la macro?

Si quieres ver el menú elimina esta línea:

.ActiveWindow.WindowState = -4137  && xlMaximized

Suerte

zarlu

Chetumal, Quintana Roo, México

[Edwin Duran]

buenas Zarlus si miras el ejemplo que paso puedo abrir un documento de excel, pero el menú no se activa, encontré esta macro que lo activa pero desde vfp no he podido ejecutarlo

[Zarlu]

Qué tal Edwin Duran!

Prueba eliminando la línea que te comenté en mi mensaje anterior

[Edwin Duran]

Zarlus gracias esta funcionando, voy a tratar de adaptar este a word

[Edwin Duran]

Hice los cambios para trabajar con word, pero no veo por que no se coloca dentro del formulario, anexo archivo

[Zarlu]

Buenos días Edwin Duran!

Esto es para excel:

 nHwnd = FindWindow('XLMain', .Caption)

No conozco el de Word

Pudieras intentar usando FindWindow pasandole el captión del archivo de word o

recorriendo las ventanas para encontrar el caption correspondiente al nombre del archivo word elegido

(esto es manejo de ventanas con apis)

[Edwin Duran]

Gracias voy a investigar

[Edwin Duran]

OpusApp este es el de word  2000 y 97 pero no me funciona y no encuentro office 2007 en adelante

anexos otras que encontre para referencia

1. Const MSOutlook = "OpusApp"  
2. 'El Excel  
3. Const MSExcel = "XLMAIN"  
4. 'El Internet Explorer  
5. Const MSIExplorer = "IEFrame"  
6. Const MSVBasic = "wndclass_desked_gsk"  
7. 'El bloc de notas  
8. Const NotePad = "Notepad"  
9. 'Formularios de Visual basic  
10. Const MyVBApp = "ThunderForm"  

[Dsan]

Esto es para el Handle de la ventana de Word traerla al frente, pueda que te de una idea y por medio de api obtengas el handle, si entendi bien es lo que deseas????

lcCaption = oWord.ActiveDocument.ActiveWindow.Caption+[ - Microsoft Word]

Declare Integer FindWindow In "user32" String, String

lnHWnd = FindWindow(Null , lcCaption)

Declare Long BringWindowToTop In "user32" Long HWnd

BringWindowToTop(lnHWnd)

Slds

Mañana veo tu ejemplo de la apertura de este hilo..

DSanchez

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/bfd1c1e6-f2f5-44e1-832c-8aa8c8b77b05o%40googlegroups.com.

[Edwin Duran]

Gracias Dsanches, lo que se busca es que el documento se vea dentro del formulario este es para  nHwnd = FindWindow('XLMain', .Caption) 

para word nHwnd = FindWindow('OpusApp', .Caption)  pero no quiere verse

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

[Zarlu]

Buenos días Edwin Duran!

Como te dice el colega DSánchez...

Sustituye:

nHwnd = FindWindow('XLMain', .Caption)

Por:

lcCaption = .ActiveDocument.ActiveWindow.Caption+[ - Microsoft Word]
nHwnd = FindWindow(0, lcCaption)

[Edwin Duran]

ya lo habia probado y no funciona

[J. Enrique Ramos Menchaca]

Revisa el siguiente link:

https://social.msdn.microsoft.com/Forums/office/en-US/bc1045ea-4a11-4e37-8a95-44a0f53e86b2/problem-using-microsoftofficeinteropword-assembly-in-my-application?forum=vsto

http://pinvoke.net/default.aspx/user32.SetForegroundWindow

Al parecer es que Word y Excel en el caption agregan el nombre del archivo, por eso no puedes tomar el control.