FoxPro/Visual FoxPro - cOMO ABRIR UN WORD DESDE UN BOTON DE COMANDO

   
Vista:
Imágen de perfil de Arnaldo Carrasco Cadena

cOMO ABRIR UN WORD DESDE UN BOTON DE COMANDO

AMIGOS QUIERO ABRIR O BUSCAR UN DOCUMENTO DE WORD DESDE UN BOTON DE COMADO O DE UN OBJETO , TENGO ESTE PROCEDIMIENTO BUSCA EL ARCHIVO PERO NO LO LO ABRE


lcFile = GETFILE("DOCX")
loWORD = CREATEOBJECT("WORD.Application")
loWORD.DOCX.Open(lcFile)
loWORD.Application.Visible = .T.
RELEASE loWORD


ME AGRADARIA ME PUDIERONA AYUDAR
ESTE MISMOS PROCEDIMIENTO LO HAGO EN EXCEL Y FUNCIONA A LA PERFERCION
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

cOMO ABRIR UN WORD DESDE UN BOTON DE COMANDO

Publicado por Fidel José (319 intervenciones) el 17/02/2016 22:47:03
Esto debería funcionar:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
LOCAL lcFile,;
	lcCaption,;
	loWord as Object,;
	loDoc as Object,;
	loex as Exception
lcFile = GETFILE("DOC;DOCX")
IF !EMPTY(lcFile)
	TRY
		loWord = CREATEOBJECT("Word.Application")
	CATCH TO loex
 
	FINALLY
	ENDTRY
	IF VARTYPE(loex)="O"
		MESSAGEBOX("No tiene Microsoft Word ® instalado?",0,"Mensaje")
	ELSE
		loWord.Documents.Open(m.lcfile)
		loDoc = loWord.ActiveDocument
		loWord.Visible = .t.
 
		* Enviar a primer plano
		* Esto puede fallar según la versión, por ciertos aditamentos
		* (Modo de compatibilidad, uso no comercial , etc )
 
		lcCaption = loDoc.ActiveWindow.Caption + [ - Microsoft Word]
		 DECLARE integer FindWindow IN "user32" String, String
		  lnHWnd = FindWindow(Null , lcCaption)
		  DECLARE LONG BringWindowToTop IN "user32" LONG HWND
		  BringWindowToTop(lnHWND)
	ENDIF
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar