「全角／半角変換」を編集中 (節単位)

== ソースコード ==
;ダウンロード： 「[[ファイル:全角／半角変換.zip]]」（アイコン入り）
*2019/05/11: 空行で実行すると無用にアンドゥするバグを修正
<syntaxhighlight lang="javascript">
#title = "全角／半角変換"
#tooltip = "選択範囲を半角に変換 (＋Ctrlで全角に変換）"
// #icon = "AA[4].ico"

// Ctrl キーの状態を取得
var $ctrl = 0;
var getKeyState = editor.FullName.replace( /mery\.exe$/i , "" )
                + "Macros\\GetKeyState.exe";
if ( new ActiveXObject( "Scripting.FileSystemObject" ).FileExists( getKeyState ) ) {
  var WshShell = new ActiveXObject( "WScript.Shell" );
  $ctrl = WshShell.Run( '"' + getKeyState + '" ctrl', 0, true );
}

var d = editor.ActiveDocument;
var s = editor.ActiveDocument.selection;

// 非選択時には単語を選択
if ( s.IsEmpty ) {
  var pos = s.GetActivePos();
  s.SelectWord();
}
var st = s.Text;
var sv = d.Saved;

// Ctrl キーなし（GetKeyState なし）なら半角に変換
if ( ! $ctrl ) {
  s.ChangeWidth( meWidthHalfWidth );
}
// Ctrl キー押し下げ時は全角に変換
else {
  s.ChangeWidth( meWidthFullWidth );
}
// 文字列の変更なしなら履歴をもどす
if ( st && s.Text == st ) {
  d.Undo();
  d.Saved = sv;
  if ( pos >= 0 ) {
    s.SetActivePos( pos );
  }
}
</syntaxhighlight>