現在編集中の（開いている）ファイルを EUC で保存する、ということでしたら、
「名前をつけて保存」のダイアログで出てくる「コード」の種類で「EUC」を選
択して保存すると、EUC になります。たぶん改行コードもこれに合わせて変えた
ほうがいいと思います。

次回このファイルを開くと、コードの自動判定でちゃんと読めるように開かれる
はずです。現在編集中のファイルのコードがどれか、ということは、「ステータ
スライン」（編集ウィンドウの上の行数、桁数などが表示されているところ）の、
カーソル位置コードの右に表示されています。

どうも、わたしのローテクマクロを使っていただいてるそうで恐縮です。

ファイルを保存すると、最後に保存した名前が「編集しているファイル」になる
のは、パソコン全般で共通のことだと思います。

ですから、エディタの中から保存する、という動作はバックアップには向いてい
ません。

対応策としてひとつの案にすぎませんが、下のマクロを使うと編集中のファイル
のあるフォルダでエクスプローラが起動しますので、エクスプローラで手動でコ
ピーするのがちょっと楽になります。

proc main 'エクスプローラ起動
if @hwnd = 0 then
call shell("explorer /e, " ,1)
exit proc
end if
dim path$
path$ = left$(@Pathname$, inrstr(@Pathname$, "\"))
call shell("explorer /e, " + path$, 1)
end proc

>１．別のフォルダに保存した場合、その文書を表示しない（あるいは、すぐに閉じる）
>２．元の文書を継続して表示する

のほうですが、マクロの最初のほうで（dim なんたらかんたらの周辺）、

dim oldfile$
oldfile$ = @Pathname$

と現在編集中のファイルのパス＋ファイル名を保存しておき、ファイルの別フォ
ルダへ保存が終わった直後のところに、

@FileClose
call @@OpenFile(oldfile$)

と追加すると、そのようになります。もとのファイルが「無題ファイル」だとま
ずいので、

if oldfile$ = "(無題)" then exit proc
@FileClose
call @@OpenFile(oldfile$)

のほうがいいですね。こういうふうにつけ加えると「バックアップ専用」の使い
かたしかできなくなりますが。

>そういうのではなく、単純に「行単位でぜんぶ逆にする」というのだったら、じ
>つはじぶん用に６日前にちょっと作ったのがあります。
そうです。それが、ほしかったんです｡ありがとうございます｡
さっそく使わせてもらいます｡
下の部分を、コピーして、拡張子を．ＭＡＣにして、マクロフォルダの中にいれれがいいんですよね？？？
>同じ名前のファイルがあったときは、確認
>なく上書きされます。
そうなんですね？気を付けます｡
ありがとうございました｡

かぶねこさん、こんばんは。
早速のお返事ありがとうございました！

>現在編集中の（開いている）ファイルを EUC で保存する、ということでしたら、
>「名前をつけて保存」のダイアログで出てくる「コード」の種類で「EUC」を選
>択して保存すると、EUC になります。たぶん改行コードもこれに合わせて変えた
>ほうがいいと思います。

こんな簡単な方法があったんですね。見逃していました(^^；
本当にどうもありがとうございました！！

さっそくお答えいただきまして、ありがとうございました。
マクロのほうを、教えていただいたとおり（コピー＆ペーストで）
直しまして、なんとか希望通りに動くようになりました。

ちなみに、直した部分（★印が追加行）ですが──
３〜７行目-----------------------------------
proc main
dim i, n, r, sel, sel2, f$, s$, path$, key$, line$
dim item$[30], item2$[10], list$[20], message$[10]
dim oldfile$　　　　　　　　★
oldfile$ = @Pathname$　　　★

80〜91行----------------------------------------
'選択したフォルダにこのファイルを保存
elseif sel2 = 4 then
if @hwnd = 0 then exit proc
s$ = inputbox$("《ファイル保存》" + chr$(10) + \
path$ + " に保存します", \
" ◆ フォルダ指定で保存", @FileName$)
if s$ = chr$(&H1B) then exit proc
r = @SaveAs(path$ + s$)
if oldfile$ = "(無題)" then exit proc　　　★
@FileClose　　　　　★
call @@OpenFile(oldfile$)　　　　★
if r = -1 then call msgbox(path$ + s$ + " を保存しました。")

にしました。

あと、エクスプローラを呼び出すマクロですが、
個人的にエクスプローラーは嫌いなので（我が儘なもので。(^^ゞ）
ふだんは、キーボードだけで動かせるＤＯＳ風のファイラーを利用してまして、
そちらも引数でフォルダ指定で呼び出せるので、応用させていただきますね。
勝手なお願いに、ご親切に対応していただきまして、どうもありがとうございました。

>マクロのほうを、教えていただいたとおり（コピー＆ペーストで）
>直しまして、なんとか希望通りに動くようになりました。

うまくいってよかったです。長くなるので説明が最低限でしたから。えっと、
１か所、後のほうの修正で、無題ファイルだと「保存しました」という
メッセージが出なくなりますね。それで問題なければいいんですが。

>ふだんは、キーボードだけで動かせるＤＯＳ風のファイラーを利用してまして、
>そちらも引数でフォルダ指定で呼び出せるので、応用させていただきますね。

応用でもなんでも、役に立てばうれしいです。

気がついたんですが、コピーを保存の直前にファイル保存をしていないと、前の
ファイルを開き直したときにその前に保存したときの状態まで戻ってしまいます
ね。

マクロのなかでファイル保存の直前に @FileSave を実行すると、まず現在のフ
ァイルを保存してから別名で保存するようになります。これも、無題ファイルの
ときはうまくいかないのが問題ですが。

>気がついたんですが、コピーを保存の直前にファイル保存をしていないと、前の
>ファイルを開き直したときにその前に保存したときの状態まで戻ってしまいます
>ね。
>マクロのなかでファイル保存の直前に @FileSave を実行すると、まず現在のフ
>ァイルを保存してから別名で保存するようになります。

あ、なるほど、そうですね。
ご指摘のとおり、
if s$ = chr$(&H1B) then exit proc
@FileSave　　　　★
r = @SaveAs(path$ + s$)

といったふうに追加してみました。
で、元の文書を、少し書き換えてから、保存する前にこのマクロを実行してみたら、
元の文書も保存され、かつ、別フォルダの文書のほうも、きちんと反映されて保存できました。

> これも、無題ファイルのときはうまくいかないのが問題ですが。

これについては、私が個人的に使うぶんには、さほど支障がないですが、
（別フォルダに同時保存したいような特別な文書は、限られているので）
いちおう頭の隅っこのほうで覚えておいたほうがいいですね。（鳥頭ですけど。(^^ゞ）

細かい点までフォローしていただきまして、ありがとうございました。

常駐リストに、いまは、最近使ったファイルを表示しています｡
この履歴って消せないのでしょうか？
教えてください。

あと、私、メーラーをＥｄｍａｘを使っています｡これの掲示板機能を使って、ここの掲示板を見たいのですが、bbxファイル、どこかで、公開されてますか？
mamimiとかもチャレンジしたいのですが、まだまだ色んなの物に手を出せてなくて･･･｡
過去記事とかにあったら、すいません。

>常駐リストに、いまは、最近使ったファイルを表示しています｡
>この履歴って消せないのでしょうか？

常駐リストではなく別ウィンドウで開くほうの「最近編集した文書一覧」で、リ
ストから削除したいアイテムの上で Delete を押すことで消せます。

わたしも EdMax 使ってます。EdMax 用の掲示板解析ファイルを「管理人からの
お知らせ」の発言番号７番で紹介していますので、参考にしてください。mamimi
のファイルも掲載しています。