カーソル直前の語をファイル名とするマクロを実行
folder内 incremental search により部分入力可
# やはりコメント大幅カット (T-T
# 無理のある実装。ご自身の責任でどうぞ。

【0executeMacro.js】
// 必ず正しく指定
// ## 設定 ##
// スクリプト自身のファイル名
var SCRIPT_NAME = "0executeMacro.js";
// マクロ群のあるフォルダのフルパス
var MACRO_FOLDER = "C:\\...\\sakura\\macro";
// マクロファイルの拡張子(小文字,正規表現不可)
var MACRO_EXT = ".mac|.ppa|.js|.vbs";
// Sendkeys用文字列
// shortcutキーも可
// %:alt ^:ctrl +:shift
var KEYS_OPENMACRO = "%ta";//マクロ開く
var KEYS_EXECMACRO = "%td";//マクロ実行
// ## 設定終了 ##

var DIALOG_TYPE=1;
var DLGRET_AUTO=-1;
var DLGRET_OK=1;
var DLGRET_CANCEL=2;
var RECKEY_NAME="RecKey.mac";
MACRO_EXT="|"+MACRO_EXT+"|";

var shell=new ActiveXObject("WScript.Shell");
var sel_text=get_left();
var astr_fileNames=get_macros(sel_text);
var dlg_return=pop_dialog(astr_fileNames);

if (dlg_return!=DLGRET_CANCEL) {
del_left();
var path=MACRO_FOLDER+"\\"+astr_fileNames[0];
shell.Sendkeys(KEYS_OPENMACRO);
shell.Sendkeys(path);
shell.Sendkeys("{ENTER}");
shell.Sendkeys(KEYS_EXECMACRO);
}

function get_left() {
var str="";
Editor.CancelMode(0);
Editor.WordLeft_Sel(0);
str=Editor.GetSelectedString(0);
if (str.match(/\x0D\x0A|\x0D|\x0A/)) {
str="";
}
Editor.Right(0);
return str;
}
function del_left() {
Editor.CancelMode(0);
Editor.WordLeft_Sel(0);
Editor.Delete(0);
}
function get_macros(in_sel_text) {
var fsys=new ActiveXObject("Scripting.FileSystemObject");
var fld=fsys.GetFolder(MACRO_FOLDER);
var fset=new Enumerator(fld.Files);
var NOEXT=-1;
var str="";
var ext="";
var arr=new Array();
if (in_sel_text=="") return arr;
for (;!fset.atEnd();fset.moveNext()) {
str=fset.item().Name.toLowerCase();
i=str.lastIndexOf(".");
if (i==NOEXT) continue;
ext="|"+str.substring(i)+"|";
if (MACRO_EXT.indexOf(ext)==NOEXT) continue;
if (str==SCRIPT_NAME.toLowerCase()) continue;
if (str==RECKEY_NAME) continue;
if (str.indexOf(in_sel_text)==0) arr.push(str);
}
return arr;
}
function pop_dialog(in_arr) {
if (in_arr.length!=1) return DLGRET_CANCEL;
var message="";
message+="マクロ「"+in_arr[0]+"」を実行します\n";
return shell.Popup(message,0,"マクロ実行の確認",DIALOG_TYPE);
}

親記事２つのソースについて
いじってみようという物好きな方へ(居るのか？)

以下のＵＲＬにコメント削除前のファイルを上げておきました。
そちらを利用すると若干わかりやすくなると思います。
http://gis-dur.hp.infoseek.co.jp/pages/temp/gis_macros.lzh

# 最初からこうすれば良かったのか！

1. XML に対応
2. 大幅に高速化
3. スクロール位置が変わってしまう不具合を解消
/************************************************
** Close Last Tag 2.1 **
*************************************************
** A "Sakura-Editor Macro" using WSH 5.6 **
** For sakura.exe ver.1.4.7.0 and over **
** Copyright (C) 2004-2005 gis_dur **
*************************************************
**【動作】 **
** カーソル位置より前にある HTML/XML タグを **
** ファイル先頭に向かって検索し、 **
** 1. 閉じていないコメント **
** 2. 終了タグのない開始タグ **
** がある場合、対応する終了タグを挿入します。 **
** コメントタグ内は無視します。 **
************************************************/

// ======== 設定開始 ========

// true : 構文エラーメッセージ非表示
// false : 構文エラーメッセージ表示
var QUIET_MODE = false;
// 文字列 NO_CLOSE_TAG で指定された終了タグについて、
// true : タグの省略を許さない (XML モード)
// false : 常に省略する (HTML モード)
var XML_MODE = false;
// 省略可能な終了タグ
var NO_CLOSETAG = "|area|base|basefont|bgsound|br|col|embed|frame" +
"|hr|img|input|isindex|keygen|link|meta|nextid" +
"|param|spacer|wbr|!doctype|"; // 小文字で記述
// 省略可能な終了タグを増やすには、以下のように追加します
// var NO_CLOSETAG += "|colgroup|dd|dt|li|option|p|rp|rt|";

// ======== 設定終了 ========

/***********************************************************
** 変数定義 **
***********************************************************/
// 正規表現オブジェクト
var regExpObj_tags =
new RegExp("<[/!]?[A-Za-z][\\w\\-:]*([^>]*/>)?|<!--|-->", "g");
var regExpObj_newLines =
new RegExp("\x0d\x0a|\x0d|\x0a", "g");
// 終了タグスタック
var stack_tags = new Array();
// 全タグ
var TagsArray = new Array();
// タグ総数
var ntags = 0;
// 全行
var LinesArray = new Array();
// 行総数
var nlines = 0;
// カーソル位置
var cursorX, cursorY;
// カーソル位置より前にある全テキスト
var all_text = "";
// 現在判定中のテキスト
var now_text = "";
// カーソル位置に挿入するテキスト
var ins_text = "";
// テンポラリ文字列
var tmp_str = "";

// コメントブロック処理中であれば true
var b_comment = false;

// (続く...)

/***********************************************************
** 主処理 **
***********************************************************/
// 選択状態を解除
Editor.CancelMode(0);
// カーソル位置取得
cursorX = Number(Editor.ExpandParameter('$x'))-1;
cursorY = Number(Editor.ExpandParameter('$y'))-1;
// 全て選択
Editor.SelectAll(0);
// 読み込み
all_text = Editor.GetSelectedString(0);
// 選択状態を解除
Editor.CancelMode(0);

// 改行コード統一
all_text = all_text.replace(regExpObj_newLines, "\x0d\x0a");
// 行に分解
LinesArray = all_text.split(/\n/);
nlines = LinesArray.length;
// カーソル行の文字列を取得
tmp_str = LinesArray[cursorY];
// カーソルが最終行にあって、かつ最終行に一文字も無い場合、
// 現在行は空文字列とする。
if (tmp_str == null) tmp_str = "";
// カーソル以前の文字列のみ残す
if (nlines-(cursorY+1) > 0)
LinesArray.splice(cursorY+1, nlines-(cursorY+1));
for (var i=0; i<cursorX; i++)
if (isKanji(tmp_str.charAt(i)))
cursorX--;
LinesArray[cursorY] = tmp_str.substring(0, cursorX);
// タグのリストを取得
TagsArray = LinesArray.join("\n").match(regExpObj_tags);
// タグ総数を取得
if (TagsArray == null) {
ntags = 0;
} else {
ntags = TagsArray.length;
}

// 直前の開始タグを検索する
for (var i=ntags-1;i>=0;i--) {
// 注目しているタグまたはコメント
now_text = TagsArray[i].toLowerCase();
// コメントブロック内での処理
if ( b_comment ) {
// コメント開始タグ
if ( now_text=="<!--" ) {
// コメントブロック処理を抜け出す
b_comment = false;
}
// 通常処理
} else {
// -->
if ( now_text=="-->" ) {
// 検索位置より前はコメントブロック
b_comment = true;
// <!--
} else if ( now_text=="<!--" ) {
// コメント終了タグを挿入して終了
ins_text = "-->";
break;
// <.../>
} else if ( now_text.indexOf("/>")!=-1 ) {
// 終了タグが必要ないので無視
// </...>
} else if ( now_text.indexOf("</")==0 ) {
now_text = now_text.substring(2);
// 終了タグスタックに追加
stack_tags.push(now_text);

// (続く...)

// <...>
} else {
now_text = now_text.substring(1);
// 終了タグをとらないタグは無視
if (!XML_MODE && NO_CLOSETAG.indexOf("|"+now_text+"|")!=-1)
continue;
// 終了タグスタックの要素が無い場合
// 対応する終了タグを挿入して終了
if ( stack_tags.length==0 ) {
ins_text = "</"+ TagsArray[i].substring(1) +">";
break;
// 終了タグスタックの最終要素と比較
// 一致すれば無視して次のタグを検索
// 一致しなければタグの包含関係に誤り
// 例：<a> <b> </a> </b> ... |←検索開始位置
} else {
tmp_str = stack_tags.pop();
if ( now_text!=tmp_str ) {
tmp_str = "タグの包含関係が不正です\n" +
"<" + now_text + "> ... ... " +
"</" + tmp_str + ">";
popup_error( tmp_str );
stack_tags=new Array();
break;
}
}
}
}
}

if (ins_text != "") {
// 終了タグを挿入
Editor.InsText(ins_text);
} else {
// 不正なコメントブロック
if ( b_comment )
popup_error("コメントの開閉関係が不正です");
// 終了タグスタックに余り要素
if ( stack_tags.length ) {
tmp_str = stack_tags.pop();
tmp_str = "開始タグの無い終了タグが見つかりました\n" +
"</" + tmp_str + ">";
popup_error( tmp_str );
}
}

/***********************************************************
** ２バイト文字判定 **
***********************************************************/
function isKanji(c) {
var tmp = escape(c);
if (tmp.charAt(0) != "%") return false;
if (tmp.charAt(1) == "u") return true;
else return false;
}

/***********************************************************
** エラー出力処理 **
***********************************************************/
function popup_error(err_string) {
if (!QUIET_MODE) {
Editor.SearchClearMark(0);
var shell = new ActiveXObject("WScript.Shell");
shell.Popup(err_string, 0, "HTML 文法エラー", 0);
}
}