//都府県と郡市町村が同じ名前だったら都府県をを省略するマクロ
//"検索文字列","置換文字列"の順で

var word = new Array(
"(.*?)[府県]([東西南北大小]?)\\1([郡市町村])","$2$1$3",

"東京都西東京市","西東京市",		//これは別枠
"埼玉県さいたま市","さいたま市",	//これは別枠

"","");	//この行はいじらない
//文字列を選択していなければ全文を選択する
if (document.selection.Text == "")
	document.selection.SelectAll();

var tx = document.selection.Text;
for (i = 0; i < word.length; i += 2) {
var r = new RegExp(word[i], "mg");
tx = tx.replace(r, word[i+1]);
}
document.selection.Text = tx;

//キャレットを選択範囲の先頭に移動（無効化するとキャレットは選択範囲の末尾に居座る）
document.selection.StartOfDocument();