【内容】
　「To:」ヘッダからアドレス帳を元に、本文へ文字列を自動記入するマクロです。

【使用方法】
1.挿入したい行の先頭に <<InsertNameToHeader>> という文字列を書き、続けて書式に従って文字を書いておきます。

(例)
<<InsertNameToHeader>>[note2] [lastname][note1]

2.このマクロを実行します。
すると、書式が書かれている行を始点として書式に従って文字列が挿入されます。
※先の例では従来のバージョンと同じ書式になります。

書式として使えるのは以下の通りです。

[name]                  名前
[lastname]              名字
[note1]?[note8]        備考1?8
[email1]                Email
[email2]                Email <名前>

【改版履歴】
Rev.20070216 書式などを柔軟に対応できるように変更。
Rev.20060412 新規作成。

アドレス帳に以下のように入力しておきます。

名前→山田 太郎
メールアドレス→abc@def.jp
備考１→様
備考２→（株）アカサタナ

<<InsertNameToHeader>>[note2] [lastname][note1]

マクロを実行すると、以下のように替わります。

（株）アカサタナ 山田様

ところで、この例ではなぜ備考１に敬称を入力するようにしているのかというと、メールの一覧でアドレスの欄が以下のように表示されるからです。

山田 太郎(様, （株）アカサタナ)

【使用方法】
　挿入したい場所に $InsertHidemaruEditorVersion$ という文字列を書いておき、マクロを実行します。
すると「HidemaruEditor 6.00beta34」のように置き換わります。
コミュニテックスのサポート会議室用のヘッダテンプレートで使用することを目的として作成しました。

(注意)
・テンプレートでマクロを実行するようにすると自動起動のマクロが無効になるので、自動実行マクロの方でこのマクロを実行させるようにすることをおすすめします。
・レジストリの数値を参照しているのでバージョンアップ時の仕様変更などによって正しい数値にならない場合があることをご承知おき下さい。
・秀丸エディタ ver.6.50β13で確認。

【改版履歴】
Rev.20070109 Version6.50βでのレジストリ格納方法に対応。
Rev.20060727 秀丸メールの表現に合わせて「beta」の前後に空白を使わないようにした。(未公開版)
Rev.20060715 新規作成。

☆ 秀丸エディタのバージョンを挿入するマクロ (20070109)
☆ 返信時の「Re:」記号を補正 Rev.20060919
☆ 「To:」ヘッダからアドレス帳を元に、本文へ文字列を自動記入する Rev.20070216
☆ 「簡易ヘッダ表示」で印刷 Rev.20060415

「Fw:」についての扱いを変更しました。(Rev.20060919)
例えば「Fw: Fw: Fw: あいうえお」となっているメールがある場合、返信時は「Re: あいうえお」、転送時は「Fw: あいうえお」
となるようにしました。ただし、転送の場合は設定がどうなっていても「Fw^2:」「Fw[2]:」のような形式にはしません。
なお、オプション扱いにしていますので、最初の行の「#option = 2;」を「#option = 1;」にすると「Re:」のみを補正するようになります。
(注記)「Fwd: 」や「[Fwd: あいうえお]」には対応していません。

【改版履歴】
Rev.20060919    更新フラグを消すようにした。「Fw:」も対象に含められるようにした。ソースを若干修正した。
Rev.20060529    返信記号を除いたタイトルにReが含まれている場合に無限ループになるのを修正した。
Rev.20060202    新規作成。

【使用方法】
　挿入したい場所に $InsertHidemaruEditorVersion$ という文字列を書いておき、マクロを実行します。
テンプレートでの例は以下の通りです。

$$InsertHidemaruEditorVersion$$$-
$(ExecMacro,"HidemaruEditorVersion.mac")$-

すると「HidemaruEditor 6.00 beta 34」のように置き換わります。

コミュニテックスのサポート会議室用のテンプレートで使用することを目的として作成しました。

【改版履歴】
Rev.20060715 新規作成。

しかし、専用のツールを使う場合は不要である。右クリック時のメニューに不要なものがあったりして目障りでもある。

設定方法:
・スタートメニューの「ファイルを指定して実行...」より以下のコマンドを打つ。
cabの場合:

regsvr32 /u cabview.dll

zipの場合:

regsvr32 /u zipfldr.dll

lzhの場合:

regsvr32 /u lzhfldr.dll

そして、仕上げに使用するツールで関連づけを設定する

適用可能なWindows: WindowsXP Professional, Windows Server 2003 ファミリ, またはそれ以降

適用可能なWindows: Windows 2000 またはそれ以降

適用可能なWindows: WindowsXP Professional, Windows Server 2003ファミリ,またはそれ以降

【改版履歴】
Rev.20060605
・シートごとに問い合わせるダイアログ(右図)に、シート名の表示と[はい][いいえ][キャンセル]の意味を追記した。
・処理中は最初のフォーム(左図)を隠すようにした。

【改版履歴】
Rev.20060601
・メッセージの修正。フォームとモジュールの名前をデフォルトから変更。

現在開いているExcelワークシートをシートごとに印刷させるマクロ

シートごとにページ番号をつけている場合は「シートを選択して印刷」をシート分繰り返す必要があって、煩わしいというのを解消するために作成しました。
シートごとに確認するか、いちいち問い合わせずに一気に印刷するかを選択できます。(デフォルトは後者)

現在、別の環境では確認していないので、インポート作業などでうまくいかない場合があるかもしれません。

【改版履歴】
Rev.20060525
・シートごとに印刷するかを問い合わせるか、問い合わせずに印刷するかを選択できるようにした。

Rev.????????
・新規作成。(http://yasuhisa.net/ に掲載していたもの)

制限:
・フォルダごとに設定を変えたりすることができません。
・設定はこのマクロに直接記述する必要があります。

※以上の制限よりメール作成時に自動的に呼び出すことをせずに、必要と思うときにマクロを呼び出すのがいいかと思います。

ちなみにこのマクロの設定例では「備考1」に敬称(様など)、「備考2」に所属(社名など)を記入するようにしています。