au3有没有判定当前启动的word是word2000还是word2003或者word2007？

森林清风

想知道AU3中是否有函数可以判定当前打开word文档的是word2000还是word2003或者word2007?我查了一下，似乎只能判定是word的版本号。有请知道吗？

user3000

回复 1# 森林清风

#Include <WinAPIEx.au3>
$PID = ProcessExists('winword.exe')
If Not $PID Then Exit MsgBox(64, 'Err', 'WinWord not running!')
$path = _WinAPI_GetProcessFileName ($PID)
$str = FileGetVersion($path, 'ProductName')
MsgBox(0, 'ProductName', $str)

骗子

直接到注册表里读取版本不行？

kevinch

Dim $arr[2][4]=[["11.0","12.0","14.0","15.0"],["2003","2007","2010","2013"]]
$word=ObjGet("","word.application")
If IsObj($word) Then
        $ver="其他版本"
        For $n=0 To UBound($arr,2)-1
                If $word.version=$arr[0][$n] Then
                        $ver=$arr[1][$n]
                        ExitLoop
                EndIf
        Next
        MsgBox(0,"","您当前运行的word版本是 "&$ver)
EndIf

其他版本查一下资料吧，目前比较常见的就这四个版本了

森林清风

回复 5# kevinch

你这段程序运行以后什么都不显示的。

kevinch

回复 6# 森林清风
你确定你打开word程序了？

xms77

回复 6# 森林清风
5楼代码测试没有问题。