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関連

    代替テキストを削除するPowerPointマクロ

    PowerPointの図やSmartArt、グループやグラフといった視…

  2. Office アドイン

    [Office用アプリ]第三回 Apps for Office 勉強会で登壇しました。

    10月4日(土)に開催されたOffice 用アプリの勉強会「第3回 A…

  3. Office関連

    ランダムな文字列を生成するVBAマクロ

    文字数を指定して0-9,A-Zまでのランダムな文字列を生成するマクロで…

  4. Office関連

    [Wordマクロ]PrintOutメソッド実行時に「型が一致しません」との実行時エラーが発生する。

    Wordマクロで文書を印刷するときはPrintOutメソッドをよく使い…

  5. Office関連

    Microsoft Graph SDK for PHPを使ったAPIの呼び出しサンプル

    知らない間に(恐らくBuild 2017のタイミングに合わせて)Mic…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP