@ScreenWidth というのがあったんですね。これは行番号表示部分も含んだ幅で
はあるけど、これを使えば文字数で掛け算なんかしなくてもいいですね。すっか
り失念してました。ご指摘ありがとうございます。QWIDTH.MAC のその部分を組
み込むと、

proc larger
dim width
width = @ScreenWidth - 4
if @PrintNumber then width = width - 6
@FontSize = @FontSize + 2
@Width = width
end proc

とかになりますね。（数値指定もいらないし、誤差も出ません。）

ついでに、マクロの１行目のお約束、

if @hwnd = 0 then exit proc

を書かなかったことにも気づきましたが、使う人が目的がわかっている場合なの
で、まいっか〜。（これがないと、文書ウィンドウがひとつもないときにエラー
メッセージが出ます ＞ pavlov さん。