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

== ソースコード ==
;ダウンロード
: 「[[ファイル:全角／半角 トグル変換.zip]]」（アイコン入り）

*2019/05/20: 初版
*2020/07/03: Mery Ver 3.0.1 以降の '''マルチカーソル'''（ゼロ幅選択範囲）と矩形選択範囲からの実行後にもキャレット位置や範囲選択の状態を復帰（矩形選択は複数選択で復帰）し、連続実行でトグル変換できるようにした

<syntaxhighlight lang="javascript" highlight="39">
#title = "全角／半角変換"
#tooltip = "全角／半角 トグル変換"
#icon = "AA[4].ico"
// #icon = "Mery用 マテリアルデザインっぽいアイコン.icl",308

/**
 * ---------------------------------------------------------
 * 「全角／半角 トグル変換」マクロ
 * sukemaru, 2019/05/20 - 2020/07/03
 * ---------------------------------------------------------
 * 2020/07/03: Mery Ver 3.0.1 以降の「マルチカーソル」のゼロ幅選択範囲の復帰に対応
 * 
 * 選択範囲の「全角 ⇔ 半角」トグル変換
 * 
 * 選択範囲がなければカーソル位置の単語を自動選択して変換
 * （変換後に範囲選択を解除する）
 * 
 * 変換されなかったときは「変更行」の強調表示や「未保存*」のフラグを残さない
 */

var sx = ScrollX,  sy = ScrollY;
var d = editor.ActiveDocument;
var s = d.selection;
var pos = -1;
var sv = d.Saved;
var sMode = s.Mode;

// 非選択時には単語を選択
if ( s.IsEmpty ) {
  pos = s.GetActivePos();
  /* マルチカーソル対応 */
  if ( sMode == 3 ) {
    var sCount = s.Count,  Sel = [];
    for ( var i = 0; i < sCount; i ++ ) {
      Sel.push( s.GetActivePos( i ) );
    }
    Sel.push( pos );
  }
  s.SelectWord();
}
var st = s.Text;

if ( d.ReadOnly ) {
  Status = "　このドキュメントは書き換え禁止です。";
}

// 全角／半角変換
else if ( st ) {
  if ( sMode > 1 ) { BeginUndoGroup(); }
  s.ChangeWidth( meWidthHalfWidth );	// 半角に変換
  if ( s.Text === st ) {
    d.Undo();
    s.ChangeWidth( meWidthFullWidth );	// 全角に変換
    if ( s.Text === st ) {
      d.Undo();
      d.Saved = sv;
    }
  }
  if ( sMode > 1 ) { EndUndoGroup(); }
}

if ( pos > -1 ) {
  s.SetActivePos( pos );
  /* マルチカーソル対応 */
  if ( sMode === 3 ) {
    for ( var i = 0, len = sCount + 1; i < len; i ++ ) {
      s.AddPos( Sel[i] );
    }
  }
}
ScrollX = sx;  ScrollY = sy;
</syntaxhighlight>