島田です。いま、動かしたら、正規表現の設定を戻さないのに気づきました（大汗）。
マクロ19行目あたりの

> if @@FindRegExp = 0 then
> @@FindRegExp = -1
> mode = 1
> end if

を

if @@FindRegExp = 0 then
@@FindRegExp = -1
@@FindRegExp = -2
end if

に直して、最後から７行目の

> if mode then @@FindRegExp = 0

を削除してください。ああ、カッコ悪い……。