>同じフォントでも半角と全角ではベースラインがずれる現象は、うちでも出てい
>ます。特にシステム付属のビットマップフォントのズレがひどいです。

Windows2000/XPの問題だったんですね。
テキストエディタを使っている人からクレームが出ていないのか不思議ですが、
Terminal やFixed Sys等のフォントを使っている人はあまりいないということ
でしょうか。私はシンプルな中にも丸々とした可愛らしさを感じてかなり気に入っ
てるんですが。(^^;)

自分のパソコンだけの問題かと不安がありましたので、残念ではありますが安心しました。
かぶねこさん、教えて頂いてありがとうございました。

行末で、Shift + Enterを行うと、行末に<br>を追加して改行という便利な機能を、先回までは利用していました。パソコンが機嫌を損ねたために、再フォーマット・再組み込みをしたので、利用出来なくなりました。しかしこの設定方法を忘れてしまい、不便で困っています。ご指導をお願い申し上げます。

http://0ban.com/forum/read.cgi?f=22&no=87&c=1

で簡単に触れていますが、これでいいでしょうか。

こんにちは。

半角英数や括弧の前後に半角スペースを挿入する Si さんのマクロを教えていただき快適
に使っています。
ひとつ、デフォルトでは選択行 or カーソルのある 1 行に実行される設定なのを、文書
全体に実行される設定にしたいと考えています。
（現在は文書を全選択してからマクロを実行しています）

proc main の最初のほうに Select all のような記述を加えればいいかと思うんですが、
その記述が分かりません…（すみません）。

どのような記述を加えたら良いのでしょうか。よろしくお願いします。

なお、見よう見まねで「選択行 or カーソルの 1 行に実行」らしき記述を試しに削除し
て実行したところ、消してはいけない部分を消してしまったようでカーソルが点滅状態で
QX 操作不能に陥りました^^;。タスクマネージャから QX を終了させてしのぎましたが、こ
ういう時にマクロを中断させることは出来るでしょうか？
Esc キーなどにも反応しない場合、どうしようもないでしょうか。

>ひとつ、デフォルトでは選択行 or カーソルのある 1 行に実行される設定なのを、文書
>全体に実行される設定にしたいと考えています。
>（現在は文書を全選択してからマクロを実行しています）

　@BlockSelectAll で全選択できますが、常に全選択して実行するようにして
しまうと不都合がありませんか？　巨大なファイルを編集している場合や、引
用部分はいじりたくない場合、等々。通常 Ctrl+A で全選択することができる
ので、現状のまま使用した方がいいのでは？

>なお、見よう見まねで「選択行 or カーソルの 1 行に実行」らしき記述を試しに削除し
>て実行したところ、消してはいけない部分を消してしまったようでカーソルが点滅状態で
>QX 操作不能に陥りました^^;。タスクマネージャから QX を終了させてしのぎましたが、こ
>ういう時にマクロを中断させることは出来るでしょうか？

　マクロの中止に関しては、マクロのヘルプに関連する記述がありますが、ア
プリケーションウィンドウを右クリックします。

>　@BlockSelectAll で全選択できますが、常に全選択して実行するようにして
> しまうと不都合がありませんか？　巨大なファイルを編集している場合や、引
> 用部分はいじりたくない場合、等々。通常 Ctrl+A で全選択することができる
> ので、現状のまま使用した方がいいのでは？

CINEPHILE さん、教えて頂いた 1 行を挿入したところきちんと動作しました！どうもあ
りがとうございました。
アドバイスもありがとうございます ^^。 私のこのマクロの使用場面が主に HP の日記や
掲示板の書込みの下書きがメインなため、全選択が必要な場合がほとんどで最初からこの
動作が入っていたほうが楽かと思いました。
ただ確かに引用部分などに入ってしまうのはまずい…ですね。^^;

うーん、何も選択していないときは全選択、選択範囲がある場合はそこだけ適用という動
作が出来れば一番嬉しいような。

この頂いた Si さんのマクロの記述に
	if @Select = 0 then
		' 選択されていないときは１行だけ
		@MoveBeginningLine
		addspace1
		@MoveNextLineCr
		exit sub
	end if
	@Redraw = 0
	startline = @SelectStartLine
	endline   = @SelectEndLine - 1
	@BlockSelectEnd
という部分があるのですが、
	startline = @SelectStartLine
	endline   = @SelectEndLine - 1
の部分を "if @Select = 〜〜〜 ？" と "end if" で囲めば可能でしょうか。

>　マクロの中止に関しては、マクロのヘルプに関連する記述がありますが、ア
> プリケーションウィンドウを右クリックします。
ありがとうございます。試してみたところ確かにこれで止まりました。
マクロのヘルプも今見てみました。（すみません）


別件ですが、、、

引用符挿入の機能をよく使うようになり、すぐ挿入できるよう右クリックの編集メニュー
に「カーソル行または選択行に引用符をつける」を加えました。
その際、引用符 ">" の右に半角スペースを挿入したく引用符の設定のところでスペース
を入れてみたものの、反応しませんでした。

出来たら
１、引用符の右に最初から半角スペースが入っているもの
２、引用符のみでスペースはないもの

の 2 種類を登録してすぐ使用できるようにしたいのですが、何か手段はあるでしょうか。
ご存知の方いらっしゃいましたらアドバイス頂けましたら幸いです。
よろしくお願いいたします。

>http://0ban.com/forum/read.cgi?f=22&no=87&c=1
>
>で簡単に触れていますが、これでいいでしょうか。

早速のご指導、有り難うございます。
しかし、昨日までは上手くいきませんでした。何度かトライし、リセットで再立ち上げ、ファイルのダウンロードのし直し等などもしてみました。でも、従来どおりのただの改行にしかならない状態でした。

　　　キー操作　　　定義名　機能説明
　　　s　 enter　　 改行
　　　s　 enter　　 "<br>"　
　本日さらに見直したところ、「キー定義設定(K)」画面では上記のように標示されていました。上位行の「　s　 enter　　 改行」を削除してみたら、機能するようになりました。
　有り難うございました。助かりました。

なるほど、設定に重複があると確かに有効になりませんね。

自力解決で何よりです。報告ありがとうございました。

Kyoko さん、こんにちは。

このマクロはサンプルマクロの QSPACE.MAC をベースにしたものですが、改造は、
一見したよりはむずかしいのです。というのは、現在の行のみを処理するほうが
メインにあって、選択部分を処理するときは、1 行ずつ処理して移動しているん
です。その 1 行ずつでサブルーチンを呼んでいます。

proc main を次のもので置き換えてみてください。編集中のファイルの先頭から
末尾まで処理するはずになっています。別件はわけます。

proc main

dim startline, endline
dim j
dim oldline

if @Select > 0 then '選択範囲があるとき
@Redraw = 0
startline = @SelectStartLine
endline = @SelectEndLine - 1
@BlockSelectEnd

@UndoBlock = 1
for j = endline to startline step -1
@Line = j
@MoveBeginningLine
oldline = @Line
addspace1
j = oldline
next
@XDisplay = 1
@Redraw = 1
@UndoBlock = 0
exit proc
end if '選択範囲がある場合、ここまで

@UndoBlock = 1 'まとめて UNDO できるようにしておく
@Redraw = 0 '画面出力停止（スピードを稼ぐ）
@MoveFileTop '先頭に移動
do while 1 'exit 条件が合致するまで繰り返し
addspace1
if @ScrLineToCrLine(@Line) = @ScrLineToCrLine(@LastLine) then exit do
@MoveNextLineCr
loop
@Redraw = 1
@UndoBlock = 0
end proc

>１、引用符の右に最初から半角スペースが入っているもの
>２、引用符のみでスペースはないもの
>
>の 2 種類を登録してすぐ使用できるようにしたいのですが、何か手段はあるでしょうか。

基本機能の「引用符挿入」は、ヘルプに「引用符の設定 で設定した引用符の１
番が使用されます」とありますので、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
'選択されていないときは１行だけ
@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