CINEPHILE さん、@TextSelect$ が参考になってよかったです。もちろんわたし
もどなたかのマクロを読んで覚えました。マクロで使えるコマンドに何があるか
というのはなかなか全部把握しておけませんよね。ときどき増えますし。

kenmotsu さん、やっぱりカーソル位置復帰はあったほうがいいですよね。原始
的マクロで復帰関係が多くなると「本文」の割合が少なくなってしまって本末転
倒ですし、CINEPHILE さんのがありますが、ついでに。

proc main
dim pos, line, top
pos = @BytePosCr
line = @Line
top = @Line - @TopLine
dim n, s$
if @Select = 0 then exit proc
s$ = @TextSelect$
@Select = 0
n = @@FindFromTop
@@FindFromTop = 1
@UndoBlock = 1
@ReplaceString2 s$, s$, 1
@UndoBlock = 0
@@FindFromTop = n
@Line = line
@ByteposCr = pos
@TopLine = @Line - top
end proc

かぶねこさん，コメントありがとうございます．

>こういうのはメーリングリスト向けの話題だと思います、が、現在メーリングリ
>ストが不調で、参加して作者に質問してください、とも言えない状況です。

いずれ，MLにも参加させていただきます.

>でかけてみました。「常駐ウイルスソフトの影響」というのがひっかかって
>きました。Virus Scan やウイルスバスターのリアルタイム監視モードとの相性
>が悪いようです。
>
>念のため最新版を使ってみてください。それでもダメならやっぱり作者に対応し
>てもらえるメーリングリストで相談なさるしかないかもしれません。

ウイルスソフトは常駐させていません．QXも最新版です．
うーん，困ったなぁ.　でもきっとなにか私の環境が悪さしているのでしょうね．
MLで相談してみます．有難うございました.

ＱＸ付属のヘルプのキーワードから「メモ機能」の項目をひくと、ごく基本的な
説明があります。（説明がそっけないので、ときにわかりにくいかも。）

具体的には、

｛中線｝ここは文字消し｛/中線｝
｛中線太｝ここは文字消し｛/中線太｝
｛中線２｝ここは文字消し｛/中線２｝

などと入力し、同時に印刷の書式設定で「｛｝有効」にチェックを入れて、印刷
のプレビューをしてみてください。

よだ さんの「印刷メモ埋め込みマクロ」などを使うと便利かもしれません。
http://www.valley.ne.jp/~yod/data/macro/qmac_006.html

かぶねこ様

教えていただいた方法で試したところ出来ました。
とても早い回答で非常に助かりました。
解らないことがあったらまた質問させていただきます。
ありがとうございました。

CINEPHILE さん、かぶねこさん。希望どおりのマクロを作っていただき、
さらに作業効率が向上しました。本当にどうもありがとうございました。

CINEPHILE さんのマクロはファイルの先頭からのすべての出現回数。かぶ
ねこさんのマクロは、現在のカーソル位置からの出現回数を検出するよう
に使い分けられますね。

>CINEPHILE さん、@TextSelect$ が参考になってよかったです。もちろんわたし
>もどなたかのマクロを読んで覚えました。マクロで使えるコマンドに何があるか
>というのはなかなか全部把握しておけませんよね。ときどき増えますし。

　おっしゃるとおりですね。マクロのヘルプを通読するのは――挑戦したこと
はありませんが――味気なくて記憶にも残りにくいですし、やはり他の方のマ
クロの中で使われている実例が一番参考になります。言語の習得と通じるとこ
ろがありそうです。

　ところで、別の投稿の件ですが、

>そういえば、この置換個数をマクロで参照できたらいいのに、と以前から
思って
>たんですが、できないんですよね。なんか方法あるのかもしれませんが…
…。

@@ReplaceCount では駄目なのでしょうか。あるいは、これが使えないような
場合のことでしょうか。

CINEPHILE さん、どうも。

>@@ReplaceCount では駄目なのでしょうか。

え、あったんですね。探せてませんでした。ヘルプに記述がないですが、
@ReplaceString2 でも数字がちゃんと返ってくるみたいですね。いやあ、ありが
とうございます。

>CINEPHILE さんのマクロはファイルの先頭からのすべての出現回数。かぶ
>ねこさんのマクロは、現在のカーソル位置からの出現回数を検出するよう
>に使い分けられますね。

が〜ん。意図した動作ではありませんでした。@ReplaceString2 では
@@FindFromTop の指定が効かないことを忘れてました。そういうふうに使ってい
ただけるならけっこうです。

いちおう自分用に意図どおりに動くようにしました。@MoveFileTop を削除すれ
ばカーソル位置以降で検索します。

proc main
dim pos, line, top
pos = @BytePosCr
line = @Line
top = @Line - @TopLine
dim i, s$
if @Select = 0 then exit proc
s$ = @TextSelect$
@Select = 0
'同一文字列で置換すると UNDO がいらないらしい
@MoveFileTop
@ReplaceString2 s$, s$, 1
i = @@ReplaceCount
@Line = line
@ByteposCr = pos
@TopLine = @Line - top
print "Count: " + str$(i)
end proc

いやあ、今回はたいへん勉強になりました。CINEPHILE さん、kenmotu さん、あ
りがとうございました。

>教えていただいた方法で試したところ出来ました。

うまくいってよかったです。

>解らないことがあったらまた質問させていただきます。

はい、ここではわたしのほかにもいろいろなかたが回答してくださってますので、
たいていわりと早く返事があります。有効利用してＱＸを活用してください。

たくきさんの本を購入し、今日から使い始めた初心者です。

全く基本的なことですが、ＱＸで作成した文書をテキストファイルで保存しようとしても、テキストファイルになりません。これはいったいどういうことでしょうか。とほほ。だれか教えてください。