>　先の投稿の補足ですが、このマクロを実行すると、ドキュメントウィンドウ
>を最大化していない場合画面の表示が乱れるようです。

@Redraw = 0
という行を、
if @@ZoomChild=1 then
@Redraw = 0
end if
とすればよさそうですね。＞自分(汗)
ご指摘をありがとうございました。