Sección de códigos , trucos y ejemplos para visual basic

400 - Obtener versión de las aplicaciones Word y Excel

Ejemplo para recuperar la versión de Word y Microsoft Excel instaladas

El ejemplo , crea mediante automatización con la función CreateObject de vb, una instancia de la aplicación para cada caso , y poder consultar la propiedad " Version " del Objeto Application.

La función retorna el número de versión

Código fuente en un form

Option Explicit Enum Aplicacion EXCEL = 0 WORD = 1 End Enum ' Función '''''''''''''' Private Function ver(Ap As Aplicacion) As Variant Dim Obj As Object Dim TempVer As Variant On Error Resume Next Select Case Ap Case 0 ' Para el Excel Set Obj = CreateObject("Excel.Application") Case 1 ' para el Microsoft Word Set Obj = CreateObject("Word.Application") End Select TempVer = Obj.version ' si no hubo error .. If Err = 0 Then ver = TempVer ' retorna el valor a la función Else MsgBox "No se pudo acceder a la aplicación", vbCritical End If ' cierra y elimina la referencia creada Obj.quit Set Obj = Nothing ' limpia el error Err.Clear End Function Private Sub Form_Load() 'Muestra un mensaje con las versiones MsgBox "Versión del Excel: " & ver(EXCEL), vbInformation MsgBox "Versión del Word: " & ver(WORD), vbInformation End Sub

Recursos Visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb