添付ファイルの情報



[添付ファイル一覧] [全ページの添付ファイル一覧]

fileChangeFontSizeDown.js
格納ファイル名:attach/4D6163726F2FC5EAB9C62F323039_4368616E6765466F6E7453697A65446F776E2E6A73
ページ:Macro/投稿/209
格納ファイル名:attach/4D6163726F2FC5EAB9C62F323039_4368616E6765466F6E7453697A65446F776E2E6A73
MD5ハッシュ値:3a10af98b36b0b5a895898de165fcfb8
サイズ:2.1KB (2121 bytes)
Content-type:application/octet-stream
登録日時:2012/08/06 04:26:37
アクセス数:319
MD5ハッシュ値:3a10af98b36b0b5a895898de165fcfb8
fileChangeFontSizeDown.js
  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
/* (Tab=4)
 [概要]
	フォントサイズを変更します。
	フォント設定ダイアログの [サイズ] で、1段階小さいサイズを選択します。
 [制限]
	実行中に、他のアプリケーションをアクティブにすると誤動作します。
 [変更履歴]
	2012/07/24	Win7対応(?)。但しCtrlキーを押していると誤動作する。(Altキーは大丈夫かも?)
	2010/01/06	新規
*/
 
 
Main();
 
function Main()
{
    var WshShell = new ActiveXObject("WScript.Shell");
    var sSELFCALLID = "/CallByMyself";        // 誤実行防止用の識別子
    var sMacroPath;
    
    if( typeof Editor != "undefined" ){
        // サクラエディタからマクロ実行された。
        
        sMacroPath = Editor.ExpandParameter("$M");
        if( sMacroPath == "" ) return;        // [名前を指定してマクロ実行...] の場合
        
        // wscript で本ファイルを実行
        WshShell.Run( 'wscript.exe "' + sMacroPath + '" ' + sSELFCALLID );
        
        // フォント設定のダイアログ
        Editor.SelectFont();
        
    }else{
        // 本マクロから wscript で実行された。
        
        var WshArgs = WScript.Arguments;
        if( (typeof WshArgs == "undefined")||(WshArgs.length == 0)||(WshArgs(0) != sSELFCALLID) ){
            WScript.Echo( "このスクリプトはサクラエディタのマクロ用です。" );
            return;
        }
        
        // 少し待つ
        WScript.Sleep( 20 );        // とりあえず20ms
        
        //2012/07/24 Win7では誤動作する。
        // 例えばAlt+Tab はタスクスイッチャーの動作になってしまう。(WinXPではOKだった。)
        // おとなしく単純に Alt+S や Enter にする。但し Alt や Ctrl が押されているとうまく動作しない。
        //		// SendKeys() はModifierキーが押されているとうまく動作しない。
        //		// Modifierキーは最初から押下状態にした。
        //		
        //		// %=ALT, ^=CTRL, +=SHIFT
        //		// [サイズ(S)] にフォーカス移動
        //		WshShell.SendKeys( "%^+{TAB}%^+{TAB}%^+{TAB}%^+{TAB}" );	// Alt+Ctrl+Shift +Tab
        //		// カーソル↑
        //		WshShell.SendKeys( "%^+{UP}" );			// Alt+Ctrl+Shift +UpArrow
        //		// [OK]
        //		WshShell.SendKeys( "%^+{ENTER}" );		// Alt+Ctrl+Shift +Enter
        
        // %=ALT, ^=CTRL, +=SHIFT
        // [サイズ(S)] にフォーカス移動
        WshShell.SendKeys( "%s" );                // Alt +S
        // カーソル↑
        WshShell.SendKeys( "{UP}" );            // UpArrow
        // [OK]
        WshShell.SendKeys( "{ENTER}" );            // Enter
    }
}




    


    ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS