>1、引用符の右に最初から半角スペースが入っているもの >2、引用符のみでスペースはないもの > >の 2 種類を登録してすぐ使用できるようにしたいのですが、何か手段はあるでしょうか。
基本機能の「引用符挿入」は、ヘルプに「引用符の設定 で設定した引用符の1 番が使用されます」とありますので、2 種類の使い分けはできないと思います。 半角スペース入りの「> 」が 1 番に設定されていれば半角スペースも入ります。
基本機能でできないので、マクロになります。引用符の種類はこのマクロの例で は 5 種類まで設定行を増やして対応できます。いらない設定行は削除してくだ さい。QSPACE.MAC のアレンジです。
'引用符挿入 proc main dim startline, endline dim j dim oldline dim quote$[5] dim i, sel, s$
i = 1 quote$[i++] = "&a. > " quote$[i++] = "&b. >" quote$[i++] = "&c. >>" sel = popupmenu(quote$) s$ = mid$(quote$[sel], 5)
if @Select = 0 then '選択されていないときは1行だけ @MoveBeginningLine @Insert s$ @MoveNextLineCr exit sub end if @Redraw = 0 startline = @SelectStartLine endline = @SelectEndLine - 1 @BlockSelectEnd
@UndoBlock = 1 for j = endline to startline step -1 @Line = j @MoveBeginningLine oldline = @Line @Insert s$ j = oldline next @XDisplay = 1 @Redraw = 1 @UndoBlock = 0 end proc |