版本号的问题？

smart1078

请问程序怎么判断当前用户有没有安装office,如果安装了，怎么用程序识别当前office的版本是97、2000、xp还是2003？

smart1078

不知道这样可不可以用，还有xp,97及其他的版本号是多少啊？

Select Case application.version Case "11.0" msgbox "2003" Case "10.0" msgbox "2002" case "9.0" msgbox "2000" End Select

cxffxc

以下是引用smart1078在2004-10-27 19:16:00的发言：

不知道这样可不可以用，还有xp,97及其他的版本号是多少啊？

Select Case application.version Case "11.0" msgbox "2003" Case "10.0" msgbox "2002" case "9.0" msgbox "2000" End Select

好方法

守柔

以下是引用smart1078在2004-10-27 19:05:00的发言： 请问程序怎么判断当前用户有没有安装office,如果安装了，怎么用程序识别当前office的版本是97、2000、xp还是2003？

请参：

Sub GetWord()

Dim Wd As Double

Wd = Shell("WinWord.exe", 0)

If Wd <> 0 Then

MsgBox "程序组中安装了Microsoft Word 程序"

Else

MsgBox "程序组中未安装了Microsoft Word 程序"

End If

End Sub

很明显你必须使用外来程序来侦测OFFICE程序是否存在比如使用VB\VBS等.

至于版本号,你的例子,看上去是正确的,我觉得判断是否为XP等是无所谓的这只是学名而已真正的名称就是它的版本号如10.0,11.0.问题是如何在外程序中获得该程序的版本号,我还没有试过直接有了WORD.EXE,写一句MSGBOX APPLICATION.VERSION就可以了.

smart1078

以上例子似乎不可行，Wd = Shell("WinWord.exe", 0)，提示“实时错误（53），文件未找到”

办公之星

今天在EXCEL中看到了一个很实用的宏表函数，WORD中可能用不了吧：

=GET.WORDSPACE(2)