「特定のフォルダで「ファイルを開く」ダイアログ」を編集中

__toc__
<br clear=all>
基本的に　[ファイル] メニュー　>>　['''開く...''']　で呼び出される「ファイルを開く」ダイアログは、"アクティブなドキュメントの親フォルダ" か "さいごに開いたファイルの親フォルダ"、または "Mery 起動時の作業フォルダ" などが起点となります。

このマクロでは「ファイルを開く」ダイアログを呼び出したさい、つねに '''特定のフォルダ''' に強制移動します。

* ソースコード内の設定項目でフォルダパスを指定してください。<br> ※キー入力のエミュレートだと日本語パスの場合にややこしいことになるので、クリップボード経由でフォルダパスを送信します。


== ソースコード ==
ベータ版 2.8.0 以前の Mery (正式版 ver 2.6.7 も含む) では、こちらのコードをご利用ください。

<syntaxhighlight lang="javascript">
#title = "開く..."
#tooltip = "ファイル選択ダイアログを開く"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",274

/**
 * ---------------------------------------------------------
 * 特定のフォルダで「ファイルを開く」ダイアログ
 * sukemaru, 2018/12/01 - 2020/12/19
 * ---------------------------------------------------------
 * 指定したフォルダを起点にファイル選択ダイアログを開く
 * ファイルの種類： すべてのファイル
 */

// ■フォルダを指定する■（\ はふたつ重ね ／ 末尾にも \\ を付ける）
var folder = "%USERPROFILE%\\デスクトップ\\";


var shell = new ActiveXObject( "WScript.Shell" );
var fso = new ActiveXObject( "Scripting.FileSystemObject" );
folder = shell.ExpandEnvironmentStrings( folder );

// クリップボードのデータを退避させて、フォルダパスをセットする
if ( fso.FolderExists( folder ) ) {
  var cb = ClipboardData.GetData();
  ClipboardData.SetData( folder );

  // キー入力をエミュレート（Ctrl+V, Enter, Delete, Alt+T, DownArrow, End, Enter, Alt+N）
  // Alt+T = 「ファイルの種類(T):」 ／ Alt+N = 「ファイル名(N):」
  shell.SendKeys( "^V~{DEL}%T{DOWN}{END}~%N" );
}

// ファイルメニューのコマンド「開く...」
editor.ExecuteCommandByID( MEID_FILE_OPEN = 2062 );

// クリップボードのデータを復帰
if ( cb )
  ClipboardData.SetData( cb );
</syntaxhighlight>


== Mery 2.8.1 以降用 ==
Mery ベータ版 ver 2.8.1 以降で、「クリップボード履歴」(最大16件) の内容を維持します。<br>
ベータ版 2.8.0 以前の Mery (正式版 ver 2.6.7 も含む) では使用できません。

<syntaxhighlight lang="javascript">
#title = "開く..."
#tooltip = "ファイル選択ダイアログを開く"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",274

/**
 * ---------------------------------------------------------
 * 特定のフォルダで「ファイルを開く」ダイアログ
 * sukemaru, 2018/12/01 - 2020/05/10
 * ---------------------------------------------------------
 * 指定したフォルダを起点にファイル選択ダイアログを開く
 * ファイルの種類： すべてのファイル
 * 
 * 2020/05/10: Mery 2.8.1 以降の
 * ClipboardData 系メソッドの追加引数を利用して、クリップボード履歴を保持
 * 【動作要件】 Mery ベータ版 ver 2.8.1 以降
 */

// ---------- ▼ 設定項目 ▼ ---------- //

// ■フォルダを指定する（ \ はふたつ重ね ／ 末尾にも \\ を付ける）
var folder = "%USERPROFILE%\\デスクトップ\\";

// ---------- ▲ 設定項目 ▲ ---------- //


var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var WshShell = new ActiveXObject( "WScript.Shell" );
folder = folder ? WshShell.ExpandEnvironmentStrings( folder )
                : edtor.ActiveDocument.Path;

// クリップボードのデータを退避させて、フォルダパスをセットする
var cb = ClipboardData;
var data0 = cb.GetData( 0 ) || cb.GetData() || "";
var data15 = cb.GetData( 15 ) || "";
if ( folder && Fso.FolderExists( folder ) ) {
  cb.ClearData( 0 );
  cb.SetData( folder );

  // キー入力をエミュレート（Ctrl+V, Enter, Delete, Alt+T, DownArrow, End, Enter, Alt+N）
  // Alt+T = 「ファイルの種類(T):」 ／ Alt+N = 「ファイル名(N):」
  WshShell.SendKeys( "^V~{DEL}%T{DOWN}{END}~%N" );
}

// ファイルメニューのコマンド「開く...」
editor.ExecuteCommandByID( MEID_FILE_OPEN = 2062 );

// クリップボードのデータを復帰
cb.ClearData( 0 );
if ( data0 ) {
  cb.SetData( data0 );

  // if ( data15 ) {
  //   cb.SetData( data15, 15 );
  // }
}
else {
  cb.ClearData();
}
</syntaxhighlight>


== メモ ==
Windows XP でしか動作確認していません

; 変更履歴
* 2018/12/01 (sukemaru)
: 初版
* 2018/12/05 (sukemaru)
: 第2版： フォルダの実在確認とクリップボードデータの復帰のためのコードを追加
* 2018/12/19 (sukemaru)
: フォルダ指定の var folder = のうしろのダブルクォートが二重になっていたので修正
: % % で囲った環境変数の展開
* 2020/05/10 (sukemaru)
: Mery 2.8.1 以降の ClipboardData 系メソッドの追加引数を利用してクリップボード履歴を保持 <br> ※外部アプリケーションで OS のクリップボードを監視・管理しているケースを想定していません