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

「カレンダーから日付入力」をUserFormに移植してみました。前のページ

[Office]「タッチ」タブの正体!?次のページ

関連記事

  1. アイコン一覧

    Office 2013 アイコン一覧(Q)

    ・Office 2013 アイコン一覧 NUM…

  2. Office関連

    「あのコマンドどこだっけ? for Office 2013」の紹介

    Word MVPの新田さんのブログでも紹介していただいている自作フリー…

  3. Word

    GoogleとYahoo!で同時に翻訳するWordマクロ

    「Google翻訳で文字列を翻訳するマクロ」と「Yahoo!翻訳で文字…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

PAGE TOP