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

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