Office アドインを作成するのに必要(マニフェストのId要素)なGUIDですが、いちいちguidgen.exeを立ち上げたり、Generate GUIDs onlineにアクセスするのも面倒くさいので、手軽に取得できるようスクリプトを作成しました(元々は「[Office用アプリ]野良アプリのススメ」で書いたコードです)。
Option Explicit
Dim ret
Do
ret = InputBox("終了する場合は「キャンセル」ボタンをクリックしてください。", _
"GUID作成", _
LCase(Mid(CreateObject("Scriptlet.TypeLib").GUID, 2, 36)))
Loop Until Len(Trim(ret)) < 1
実行すると下図のようにInputBoxが表示され、Enterキー、もしくはOKボタンをクリックすると、GUIDを再生成します。
Enterキーを押して気に入った(?)GUIDが作成されたらCtrl + Xキーを押して切り取り、ESCキーを押してスクリプト終了、なかなか手軽で便利です。
この記事へのコメントはありません。