[Iska]

okida, попробуйте такой способ (не гарантирую, что сработает):

Сохраните код:

читать дальше »

Код:

Option Explicit

Dim strGUID_ProductCode
Dim strGUID_ComponentCode

Dim srtShortcutPath
Dim strTargetPath


If WScript.Arguments.Count = 1 Then
	With WScript.CreateObject("WindowsInstaller.Installer")
		srtShortcutPath = WScript.Arguments.Item(0)
		
		With .ShortcutTarget(srtShortcutPath)
			strGUID_ProductCode   = .StringData(1)
			strGUID_ComponentCode = .StringData(3)
		End With
		
		strTargetPath = .ComponentPath(strGUID_ProductCode, strGUID_ComponentCode)
		
		WScript.Echo "Target path: " & strTargetPath & vbCrLf & _
			"File version: " & .FileVersion(strTargetPath)
	End With
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <Path to advertised .lnk file>"
End If

WScript.Quit 0

в файл с расширением «.vbs». Затем на этот сохранённый файл перетащите ярлык, которым Вы запускаете Word или Excel.