>おっしゃるとおりですが、例えば、一回のみの作業で1000回の連続的な作業、
面倒でなければPPA等でループを記述する方法も検討してみてください．

面倒といわれればそれまでですが(汗
ループ回数をPopupで入力させるようなことはPPAからできたっけなぁ．

>EOFに達したら
>実行を中断できると嬉しいです。

PPAマクロで一応可能ですけど面倒ですな。
----------
// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダに PPA.DLL を入れておいてください。
// マクロファイルの拡張子は .PPA でなくてはなりません。
// TAB=4

// ファイル終端に達した場合に処理を終了するサンプル

// マクロ実行開始時にカーソルがある行から、行末の１文字を削除していく。
// 始めに実行する回数を入力するダイアログを出し、そこで指定された行数だけ削除処理をする。
// ただし、ファイル終端に到達したら、即、マクロの処理を中断する。

var
cnt,max:Integer; // 整数数値型変数 cnt と max を用意する
// csry,eol:Integer; // 整数数値型変数 csry と eol を用意する
begin

max := StrToInt( InputBox('マクロ実行','マクロを実行する回数を入力して下さい。','') );

for cnt := 1 to max do begin // {

// // ファイルの行数情報の取得方法のサンプル
// eol := S_GetLineCount(0); // ← ファイルの行数(改行単位の行数)を取得する方法
// csry := StrToInt( S_ExpandParameter('$y') ); // ← カーソルがある行番号(改行単位の行番号)を取得する方法
// MessageBox( '現在の行番号'+IntToStr(csry) + ' / 全行数'+IntToStr(eol) , IntToStr(cnt)+'回目の実行です('+IntToStr(max)+'回実行予定)' , 0 ); // for DEBUG

// 実際の「ファイル終端に到達したら中断する処理」の記述は↓コレ
if ( StrToInt(S_ExpandParameter('$y')) > S_GetLineCount(0) ) then begin
MessageBox( 'ファイル末尾に到達したためマクロを終了します。' , 'マクロ終了' , 0 );
Exit;
end;

// 実際におこなう処理内容
S_GoLineEnd(0); // 行末に移動(折り返し単位)
S_DeleteBack(0); // カーソル前を削除
S_Down(0); // カーソル下移動

end; // }
end;
----------

>ちなみにこれもMifesがこういう仕様なのでっていうのが多分にあるのですが・・・
なつかしい。

>良く私はある文字を検索して、その何バイトか後ろの文字を削除する
>と言うようなキーマクロをひたすら実行することがあるのですが
>Shift+Ctrl+Lを連打しすぎて消してはいけない文字を大量に消してしまうことが
>あるんですよ。
>そこで検索にヒットしなかったときとかEOFに達したときにマクロが中断してくれると
>いいなと思うわけです。

----------
// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダに PPA.DLL を入れておいてください。
// マクロファイルの拡張子は .PPA でなくてはなりません。
// TAB=4

// 文字列 abc を検索し、見つかった abc から３文字後ろへ移動して２文字を削除する。
// 始めに実行する回数を入力するダイアログを出し、そこで指定された回数だけ削除処理をする。
// ただし、文字列 abc が見つからなかったら、指定回数に達していなくてもマクロ処理を終了する。

var
cnt,max:Integer; // 整数数値型変数 cnt と max を用意する
find:Integer; // 整数数値型変数 find を用意する
begin

max := StrToInt( InputBox('マクロ実行','マクロを実行する回数を入力して下さい。','') );

find := 0; // 実際に処理した回数 = 0 (リセット)
for cnt := 1 to max do begin // {

S_SearchNext('abc', 16); // 文字列 abc を検索

if ( S_GetSelectedString(0) = '' ) then begin
// 検索文字列が見つからなかった
MessageBox( '検索文字列が見つかりませんでした。処理を中断します。' , 'マクロ終了',0);
Break;
end;

find := find +1; // 処理回数をカウント。実際に処理した回数を +1 しておく。

// 3文字後ろへ移動して、2文字削除する
S_Right(0); // カーソル右移動
S_Right(0); // カーソル右移動
S_Right(0); // カーソル右移動
S_Delete(0); // 削除
S_Delete(0); // 削除

end; // }

MessageBox( IntToStr(find) + '箇所 処理をおこないました','まっくろ終了',0 );

end;
----------