Office関連

プロダクトIDを取得するWordマクロ

下記質問用に書いたコードです。
バージョン情報」で表示されるプロダクトIDを調べる機会もなかなか無いと思いますが、一応メモとして残しておきます。

・Office2010および2013のプロダクトIDの取得
http://social.msdn.microsoft.com/Forums/ja-JP/vbajp/thread/380e9f38-f408-4d7e-8c91-2b9cadbe0ff9

Wordでは、下記コードのようにDialogオブジェクト(wdDialogHelpAbout)から設定値(APPSERIALNUMBER)を取得することで、インストールされているOffice製品のプロダクトIDを調べることができます。

Option Explicit

Public Sub Sample()
  MsgBox Application.Dialogs(wdDialogHelpAbout).APPSERIALNUMBER
End Sub

このコードをExcelや他のアプリケーションから動かす場合は下記のようになります。

Option Explicit

Public Sub Sample()
  MsgBox "OfficeのプロダクトID:" & GetOfficeProductID, vbInformation + vbSystemModal
End Sub

Private Function GetOfficeProductID() As String
  Dim ret As String
  Const wdDialogHelpAbout = 9
  Const wdDoNotSaveChanges = 0
  
  With CreateObject("Word.Application")
    ret = .Dialogs(wdDialogHelpAbout).APPSERIALNUMBER
    .Quit wdDoNotSaveChanges
  End With
  GetOfficeProductID = ret
End Function

関連記事

  1. Office アドイン

    [Officeアドイン]マニフェストファイルをデバッグする方法

    Office アドイン本体はF12ツール等を使ってデバッグすることがで…

  2. Office関連

    フォルダ(サブフォルダ含む)内の特定の拡張子のファイルに処理を行うVBAマクロ

    「Wordマクロ サブフォルダ ファイル処理」といったキーワードでのア…

  3. Office関連

    Wordの自動実行マクロ

    たまたま使用する機会があったのでメモ書き程度に情報を残しておきます。…

  4. Office関連

    Office製品のフィードバックって本当に反映されるの?

    今年の1月に、WordやExcel等のOffice製品で、UI上の不具…

  5. Office関連

    「データ追跡機能付きテンプレート ウィザード」のダウンロード先

    ※ 下記に紹介する方法はOfficeのサービスパックからデータ追跡機能…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP