VBScript

GUIDを作成するVBScript

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を再生成します。

CreateGUID

Enterキーを押して気に入った(?)GUIDが作成されたらCtrl + Xキーを押して切り取り、ESCキーを押してスクリプト終了、なかなか手軽で便利です。

PowerPointスライドショー終了後ファイルを閉じるVBAマクロ前のページ

パスワードに使えそうなランダムな文字列を作成するVBScript次のページ

関連記事

  1. VBScript

    Windowsのバージョン情報を取得する

    小ネタです。verコマンドを利用してWindowsのバージ…

  2. VBScript

    ファイル選択ダイアログ

    ファイル選択ダイアログを表示するVBScriptをまとめてみま…

  3. Excel

    ドラッグ&ドロップしたOfficeファイルをPDFに変換するVBScript

    複数のExcelファイルをPDFに一括変換する必要があったので、簡単な…

  4. Office関連

    ドラッグ&ドロップでExcelファイルをアドイン形式(xlam)に一括変換するVBScript

    複数のExcelファイルをアドイン形式(xlam)に変換する必要があっ…

  5. Windows関連

    OSのバージョン情報をクリップボードにコピーするVBScript

    OSのバージョンやビルド番号をブログの記事内に書くことがあるのですが、…

  6. VBScript

    Office付属のVBEでVBScriptコードを書くのを助けるVBScript

    VBScriptのコードを書くとき、メモ帳等のテキストエディタではイン…

コメント

  • コメント (0)

  • トラックバックは利用できません。

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

最近の記事

アーカイブ

PAGE TOP