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

森林清风 · 发表于 2013-5-29 13:01:48

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

user3000 · 发表于 2013-5-29 18:34:46

回复 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)

骗子 · 发表于 2013-5-30 11:34:39

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

kevinch · 发表于 2013-5-30 11:47:06

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

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

森林清风 · 发表于 2013-6-9 15:20:45

回复 5# kevinch

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

kevinch · 发表于 2013-6-9 16:38:18

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

xms77 · 发表于 2013-6-9 18:47:30

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

		自动登录	找回密码
密码			加入

[系统综合] au3有没有判定当前启动的word是word2000还是word2003或者word2007？

相关帖子

评分