如何使用 MS word 2007 vba 检查窗口版本

Question

我想检查不同 comp 上的窗口版本，从而在 MS word 2007 vba 上执行不同的任务。我尝试了我在 ms excel 2007 vba 上应用的代码并且正在运行，但在 MS word 2007 vba 上却没有。

Dim TheOS As String
Dim WinType As String
TheOS = Application.OperatingSystem
MsgBox ("TheOS ")

在 ms word 2007 vba 上，它再次出现编译错误：未找到方法或数据成员。我需要什么？

Answer 1

如果您想要可以在所有办公产品中使用的 vba 代码，WMI 是一种解决方案。

Application.System.OperatingSystem 没有返回任何有趣的东西。

Application.System.Version 可用。但我使用 WMI 来给我正确的信息。

 Sub test()
    Dim info As System
    'Well everything is windows NT today..
    Debug.Print Application.System.OperatingSystem
    'Short version string MajorVersion.MinorVersion
    Debug.Print Application.System.Version

    Dim objWMI As Object
    Dim objSystems As Object
    Dim objOs As Object

    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set objSystems = objWMI.ExecQuery("Select * from Win32_OperatingSystem")

    For Each objOs In objSystems
        Debug.Print objOs.Name 'Full name as in OS startup screen
        Debug.Print objOs.Caption ' Human readable name
        Debug.Print objOs.Version ' the correct windows version string
    Next

    Set objOs = Nothing
    Set objSystems = Nothing
    Set objWMI = Nothing

End Sub