インストールされているOffice製品をコードで判定する方法

Question

前提・実現したいこと

対象PCにインストールされているOffice製品（ExcelやWord）などがどのバージョンか
コードから調べる方法を調査していますが、方法が分かりません。

Office2013までは内部バージョンで判定をすることにより、2007や2013と判定することができましたが、Office2016以降2019、Office365製品では全て同じ内部バージョン（16.x）となっているようで旧来の判定方法では対応できません。

画面上では、[ファイル]タブ=>[アカウント]上にて、
インストールされている製品が何かわかります。

なんらかの方法により画面上と同じように
Office2016のExcel2016
Office2019のExcel2019
Office365のExcel　といったように
判定する方法をどなたかご存じでないでしょうか？

宜しくお願い致します。

Answer 1

ろくに動作確認出来ていませんが一例として。

UIAutomationとかを使って表示されている文字からそれっぽいものを抜き出すコードです。
Windows PowerShell ISEとかに貼り付けて実行してみてください。

# 必要なライブラリロード
Add-Type -AssemblyName UIAutomationClient, System.Windows.Forms, Microsoft.VisualBasic


# Excelを新規でインスタンス
[__ComObject]$appXl = New-Object -ComObject Excel.Application -Property @{Visible = $true}


### [ファイル]タブ=>[アカウント] を開く ###
    # 無理矢理SendKeysで操作。UIAutomationをちゃんと使えば無しで行けるとは思うけれど
    # 待ち時間（Start-Sleep）は適度に調整

# Excelを最前面に
[Microsoft.VisualBasic.Interaction]::AppActivate($appXl.Caption)
Start-Sleep -Seconds 1

# 「Alt+F+D」のキーを送信して [ファイル]タブ=>[アカウント] を開く
[Windows.Forms.SendKeys]::SendWait('%F')
Start-Sleep -Seconds 1
[Windows.Forms.SendKeys]::SendWait('%D')
Start-Sleep -Seconds 1


### UIAutomationで要素を走査して製品情報ぽいものを探す ###

# UIAutomation補助関数
function Get-UIChildren {
    [CmdletBinding()]
    [OutputType([Windows.Automation.AutomationElement])]
    Param (
        [Parameter(Mandatory=$true,ValueFromPipeline=$true)]
        [Windows.Automation.AutomationElement[]]$InputObject,
        [Windows.Automation.TreeScope]$TreeScope = [Windows.Automation.TreeScope]::Children
    )
    Process {
        foreach( $ele in $InputObject ) {
            $ele.FindAll($TreeScope, [Windows.Automation.Condition]::TrueCondition) | Write-Output
        }
    }
}

# Excelトップを取得
[IntPtr]$hwndXl = $appXl.Hwnd
$xlAutoEle = [Windows.Automation.AutomationElement]::FromHandle( $hwndXl )

# 子要素群取得
[Windows.Automation.AutomationElement[]]$elements = 
    $xlAutoEle | 
    Get-UIChildren -TreeScope Descendants

# 製品情報っぽいものを探す
[Windows.Automation.AutomationElement+AutomationElementInformation[]]$officeInfo? = 
    $elements |
        % { $_.Current } |
        ? { # テキストで、'Microsoft Office'が含まれるもの
            $_.ControlType -eq [Windows.Automation.ControlType]::Text -and 
            $_.Name -match 'Microsoft Office'
        } # | Select-Object -Property ClassName, LocalizedControlType, ControlType, Name 

# 取得した要素の名前を出力
$officeInfo? | Select-Object -ExpandProperty Name

$appXl.Quit()

Office2016(Office 365)やOffice2013の環境では以下の文字列がコンソールに出力されました。

Microsoft Office 365
Microsoft Office Professional 2013

UIAutomation周りのアプローチは以下のサイトも参考になると思います（私は、正直ろくに知識が無いので）。

Officeアプリケーションのバージョン情報ダイアログから情報を取得するVBScript | 初心者備忘録

Comments

[trons]

imihito様　ご回答ありがとうございます。
低維持いただいたコードを実行したところ、製品情報が取得できることを
確認させていただきました。
UIAutomationは使ったことが無いので、調べてみたいと思います。

ありがとうございました。

Answer 2

使ったことは無いのですが、Application配下のプロパティだとこの辺が使えるかも？

Application.Build　ビルド番号　マイナーバージョン？（表示上のバージョンとは一致しないが・・・）

Application.CalculationVersion　計算エンジンのバージョン？

（インストールされているOfficeが一つに絞れるのであれば）インストール情報を取得して、そこからバージョンを特定することは可能かもしれません。
PowerShell/インストール済アプリケーション一覧を取得する

Get-ChildItem -Path(
'HKLM:SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',
'HKCU:SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall') | 
% { Get-ItemProperty $_.PsPath | Select-Object DisplayName, DisplayVersion, Publisher }

参考になるか分かりませんが、以下のコマンドでバージョン情報が取得できるみたいでした。
こちらのOffice 2016の場合：16.0.9226.2126が出ました。

(Get-ItemProperty -Path "HKLM:\SOFTWARE\Microsoft\Office\ClickToRun\Configuration" -ErrorAction SilentlyContinue).VersionToReport 

実行中のプロセス情報からEXCEL.EXEのパスを特定して、実行ファイルのプロパティ情報からバージョンを取得することなら可能かもしれません。（ソース無し）

Comments

[trons]

ご回答ありがとうございます。
旧来であればApplication関連を使うのがデフォルトでしたが
手持ちの環境では
Office2016　Excel　16.0.10827.20118
Office2019　Excel　16.0.10337.20021（Preview版）
Office365　 Excel　16.0.10827.20118

となっており、バージョン情報から規則性を見出せませんでした。
(Office2019は値が異なるが・・・Previewのため製品版が同じかどうかは不明？)
また、VBAバージョンも全て同じ値となっておりました。
7.1.1084でした

Application.CalculationVersionの方は
Office2016　162913
Office2019　179021
Office365　179021
でした。

公式の情報があればよいのですが・・・

[trons]

PowerShellの結果も追記します。

Office365　16.0.10827.20181
Office2019　16.0.10827.20181

です。

[trons]

インストール情報から調べてみました。、

Office365: Microsoft Office 365 ProPlus - ja-ja
Office2016: Microsoft Office Professional Plus 2016 - ja-ja
Office2019: Microsoft Office Professional Plus 2019 - ja-ja

のように表示されるので、実際ExcelやWordがどれが入っているかは
判断できなさそうです

[退会済みユーザー]

報告有難うございます。
インストール情報にはバージョン情報も埋め込まれているのでセットで取り出せるはずですよ。上にPowerShellの例ですが追記しておきます。
しかし複数バージョン同時にインストールされている場合、判別が難しそうですね。
あと考えられるのは自分自身の実行ファイルを特定してファイルのプロパティからバージョン情報を取得するというのはいかがでしょうか。

[trons]

ご指摘の通り、インストール情報からは複数のバージョンの場合は特定できなさそうです。
また、Excelなどの本体EXEのファイルプロパティのバージョン情報ですが、上記に記載した画面上で
表示される情報と同一でした。
こちらからも特定は困難なようです。

API等を駆使して、GUI操作をコードで再現し[Excelのバージョン情報]を開けば表示されるダイアログが「Microsoft Excel for Office 365のバージョン情報」などと表示されますのでタイトルで判定できそうですが、実際の動作を考えると現実的ではないと思います。

[退会済みユーザー]

失礼しました。Office365とインストール版の判定も行いたいんでしたね。これ以上、出来そうな方法が思いつきません。有識者の回答をお待ち下さい・・。

その文字を表示しているXML？レジストリ？にアクセスできれば、あるいは・・・私にはお手上げですorz

[trons]

Office2019の製品版が手に入りましたのでバージョン情報を追記します。
Office2016　Excel　16.0.11001.20070　1810（ビルド11001.20074）
Office2019　Excel　16.0.11001.20070　1810（ビルド11001.20074）
Office365　 Excel　16.0.11001.20064　　1810（ビルド11001.20074）
（10/30日現在）
やはりバージョン16.ｘで内部バージョンは統一されている模様です。