ハルナアウトライン用の完了/未完了フラグをノード名に反映する

当方プログラムをする身ではないため、不適切な記述があるかもしれません。 訂正・更新あればよろしくお願いします。

#title = "ハルナから状態反映"
/***********************************************************************************************************
************************************************************************************************************
**
**  当マクロはhalna氏作成のAndroidアプリ「ハルナアウトライン」
**  https://play.google.com/store/apps/details?id=jp.blogspot.halnablue.HalnaOutliner
**  とMeryを併用する前提で、Mery側に欲しい機能を私が勝手にマクロで実装したものです。
**  当マクロはhalna氏作成のAndroidアプリ「ハルナアウトライン」と直接の関係はありません。
**  当マクロについてhalna氏への問い合わせはおやめください。
**  
**  ハルナアトラインで更新・作成したファイルの完了(チェックフラグ)をノード名先頭へ反映する。
**  ハルナアウトラインでは、.+ノード名+[タブ]+0,0,0,0,0で特殊フラグ管理している。
**  フラグのないノードについては判断不能として能動的に完了か未了にする(完了未了切替マクロ)まで＊表示にする。
**  チェックフラグは(0?,)の3番目。
**  
**  □☑＊いずれも持たないノードの末尾のフラグが……
**  	フラグ=1	完了とする。ノード名を"☑"+ノード名へ更新する。
**  		【置換元】	/^(?!\.+[□|☑|＊])(\.+)(\S+\t\d?,\d?,1,\d?,\d?)/
**  		【置換先】	$1☑$2
**  
**  	フラグ=0	未了とする。ノード名を"□"+ノード名へ更新する。
**  		【置換元】	/^(?!\.+[□|☑|＊])(\.+)(\S+\t\d?,\d?,0,\d?,\d?)/
**  		【置換先】	$1□$2
**  
**  	フラグがない	＊判断不能とする。
**  		【置換元】	/^(?!\.+[□|☑|＊])(\.+)(\S+)$/
**  		【置換先】	$1＊$2
**  
**  □☑＊いずれかを持つノードの末尾のフラグが……
**  	フラグ=1	完了とする。ノード名の先頭1文字を"☑"へ更新する。
**  		【置換元】	/^(\.+)(□|☑|＊)(\S+\t\d?,\d?,1,\d?,\d?)/
**  		【置換先】	$1☑$3
**  
**  	フラグ=0	未了とする。ノード名の先頭1文字を"□"へ更新する。
**  		【置換元】	/^(\.+)(□|☑|＊)(\S+\t\d?,\d?,0,\d?,\d?)/
**  		【置換先】	$1□$3
**  
**  	フラグがない	＊判断不能とする。
**  		【置換元】	/^(\.+)(□|☑|＊)(\S+)$/
**  		【置換先】	$1＊$3
**
************************************************************************************************************
***********************************************************************************************************/

redraw=false;
with(document.selection){
	StartOfDocument(false);
	Replace("^(?!\\.+[□|☑|＊])(\\.+)(\\S+\\t\\d?,\\d?,1,\\d?,\\d?)", "$1☑$2", meFindNext | meFindReplaceRegExp | meReplaceAll);
	StartOfDocument(false);
	Replace("^(?!\\.+[□|☑|＊])(\\.+)(\\S+\\t\\d?,\\d?,0,\\d?,\\d?)", "$1□$2", meFindNext | meFindReplaceRegExp | meReplaceAll);
	StartOfDocument(false);
	Replace("^(?!\\.+[□|☑|＊])(\\.+)(\\S+)$", "$1＊$2", meFindNext | meFindReplaceRegExp | meReplaceAll);
	StartOfDocument(false);
	Replace("^(\\.+)(□|☑|＊)(\\S+\\t\\d?,\\d?,1,\\d?,\\d?)", "$1☑$3", meFindNext | meFindReplaceRegExp | meReplaceAll);
	StartOfDocument(false);
	Replace("^(\\.+)(□|☑|＊)(\\S+\\t\\d?,\\d?,0,\\d?,\\d?)", "$1□$3", meFindNext | meFindReplaceRegExp | meReplaceAll);
	StartOfDocument(false);
	Replace("^(\\.+)(□|☑|＊)(\\S+)$", "$1＊$3", meFindNext | meFindReplaceRegExp | meReplaceAll);
}
redraw=true;