さきほど紹介したマクロには、繰り返し使うフォルダに便利に
アクセスするための「フォルダリスト」機能をつけたので、
少し内容が煩雑になっていました。
もっとシンプルな、ファイルを選択して挿入するだけのマクロは
こちらです。自分のマクロフォルダを掘ったらありました。
'文書をカーソル位置に挿入 / 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 |