■ 質問はここへ ■

前へ 次へ
No. 1921 (1919へのコメント)投稿者: かぶねこ日付: 2026/08/19 17:47:09
題名 : Re^3:初めから

さきほど紹介したマクロには、繰り返し使うフォルダに便利に
アクセスするための「フォルダリスト」機能をつけたので、
少し内容が煩雑になっていました。

もっとシンプルな、ファイルを選択して挿入するだけのマクロは
こちらです。自分のマクロフォルダを掘ったらありました。

'文書をカーソル位置に挿入 / ver. 0.50 / by Kabuneko 2000/05/08

proc main

if @hwnd = 0 then exit proc
dim file$, a$
file$ = GetFileName$("", "*.*", "挿入するファイルを選択")
if file$ = "" then exit proc
@Redraw = 0
@UndoBlock = 1
open file$ for input as #1
do until eof(1)
lineinput #1, a$
@Input a$
@CharReturn2
loop
close #1
@CharReturn2
@Redraw = 1
@UndoBlock = 0

end proc

次へ
現在の既読番号は 0  既読を


メールアドレスを表示するにはURLの後ろに &m=a25b9e92 をつけてください。
ユーザー フォーラム一覧

http://www2k.biglobe.ne.jp/~araken/
http://0ban.com/araken/