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

    [Excel Services ECMAScript]jPrintAreaで埋め込んだブック部分のみ…

    jQuery + jPrintAreaを利用して、埋め込んだExcel…

  2. Office関連

    [VBA]桁を揃えてDebug.Printする。

    @CallMeKoheiさんのブログの記事に「Excel VBA イミ…

  3. Windows 10

    【2017年1月版】Microsoft Edgeを操作するVBAマクロ(DOM編)(2)

    昨日の記事で、Microsoft Edgeを操作するVBAコードを改め…

  4. Office関連

    選択したセルに連続行番号を振るWordマクロ

    Wordでマニュアルを作成するとき等、表の中で連番を振りたいときがよく…

  5. Office関連

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

    前回の記事では、Office 用アプリ「カレンダーから日付入力」と同様…

  6. Office アドイン

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

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

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP