3 de abril de 2001

Buscar si Word o Excel están instalados

Con estas dos funciones podemos saber si Word ® o Excel ® están instalados en la PC.

*----------------------------------------------------
* FUNCTION BuscaWord
* Busca si MS Word está instalado en la PC
*----------------------------------------------------
FUNCTION BuscaWord
  LOCAL lcErrorAnt, loApp, CR
  CR = CHR(13)
  lcErrorAnt = ON("ERROR")
  ON ERROR DO _MiError
  loApp = CREATEOBJECT("Word.Application")
  IF VARTYPE(loApp) = "O"
    MESSAGEBOX("Nombre: " + loApp.NAME + CR + ;
      "Versión: " + loApp.VERSION + CR + ;
      "Build: " + TRANSFORM(loApp.BUILD), 64 )
    RELEASE loApp
  ELSE
    MESSAGEBOX("Word no está instalado", 16)
  ENDIF
  ON ERROR &lcErrorAnt
  RETURN
ENDFUNC

*----------------------------------------------------
* FUNCTION BuscaExcel
* Busca si MS Excel está instalado en la PC
*----------------------------------------------------
FUNCTION BuscaExcel
  LOCAL lcErrorAnt, loApp, CR
  CR = CHR(13)
  lcErrorAnt = ON("ERROR")
  ON ERROR DO _MiError
  loApp = CREATEOBJECT("Excel.Application")
  IF VARTYPE(loApp) = "O"
    MESSAGEBOX("Nombre: " + loApp.NAME + CR + ;
      "Versión: " + loApp.VERSION + CR + ;
      "Build: " + TRANSFORM(loApp.BUILD), 64 )
    RELEASE loApp
  ELSE
    MESSAGEBOX("Word no está instalado", 16)
  ENDIF
  ON ERROR &lcErrorAnt
  RETURN
ENDFUNC

*----------------------------------------------------
* PROCEDURE _MiError
* Usado por BuscaWord y BuscaExcel
*----------------------------------------------------
PROCEDURE _MiError
  RETURN
ENDPROC
*----------------------------------------------------

Luis María Guayán

No hay comentarios. :

Publicar un comentario