Detectar carpeta de instalación office

[lcervantes]

Hola a todos.
Existe alguna manera de saber cual es la carpeta de instalación del office.
Sistema Opertaivo LINUX.
- Por linea de comandos
- Consultando el registro.
- vbs.

Necesito de manera automatica saber cual es la carpeta de instalación del office.
Recordar que dependiendo de la versión el nombre de la carpeta varía.

Alguna idea.?

Saludos,

LCervantes

[mrocf]

Si en cualquiera de las aplicaciones del Office accedes al VBA (Visual Basic for Application / macros) y ejecutas el comando:

MsgBox Application.Path

obtendrás la carpeta correspondiente.

Del mismo modo, accediendo a cualquiera de sus aplicaciones en el Regedit (o su equivalente). Por ejemplo:

HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\W ord\Options\PROGRAMDIR

[lcervantes]

Hola mrocf.
Aqui es donde tengo el problema.
Mi idea es ejecutar visual basic script y no visual basic applications.
La idea es ejecutar un scripts de inicio de sesion de windows y saber si el word esta instalado. Por eso preguntaba por vbs.
Lo del regedit lo tenia pensado, pero tal y como muestra la ruta de regedit en algunos pc será 14 otros será 12 y otros será 10 y así. No se cuando es uno u otro.

"Básicamente busco saber si el word esta instalado y en que ruta."

Micras grácias por la ayuda.

[rid501]

A ver si te vale éste. Te lista todas las versiones instaladas de MS Office

Código:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colApps = objWMIService.ExecQuery _
    ("Select * from Win32_Product Where Caption Like '%Microsoft Office%'")
For Each objApp in colApps
    Wscript.Echo objApp.Caption, objApp.Version
Next

[lcervantes]

Holal rid501
No consigo que me funcione.
Supongo que lo que me envias lo he de meter en un fichero con extensión vbs.
Y ejecutarlo doble click y listo.
Es así?
muchas gracias.

[rid501]

Desde consola de comandos cscript nombrefichero.vbs o doble click para verlo desde dentro de windows. Como usa WMI a veces tarda bastante en sacar el resultado

[mrocf]

¡Está buena la sugerencia de rid!...

Y, por si te "costara" hacerla funcionar, yo en visual basic (VB) haría lo siguiente:

Código vb:

Function Version_MSO() As String
Const dirOffice As String = "C:\Archivos de programa\Microsoft Office"
Dim folderOffice As String, msoVer As String
 
If Dir(dirOffice, vbDirectory) = "" Then
  Version_MSO = "Carpeta MS Office inexistente"
  Exit Function
End If
 
folderOffice = Dir(dirOffice & "\Office*", vbDirectory)
If folderOffice = "" Then
  Version_MSO = "Ninguna versión de Office se encuentra instalada" & vbLf & "en la carpeta MS Office."
  Exit Function
End If
 
Do
  msoVer = CreateObject("Scripting.FileSystemObject").GetFileVersion(dirOffice & "\" & folderOffice & "\winword.exe")
  If msoVer <> "" Then
    Version_MSO = msoVer
    Exit Function
  End If
  folderOffice = Dir
Loop Until folderOffice = ""
 
End Function
 

O sea: la función retorna un string.

Saludos, Cacho R.