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