■ 質問はここへ ■

1921 にジャンプ
No. 1917 題名 : 初めから 投稿者 : いはた
No. 1918 題名 : Re:初めから 投稿者 : かぶねこ
No. 1919 題名 : Re^2:初めから 投稿者 : いはた
No. 1920 題名 : Re^3:初めから 投稿者 : かぶねこ
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

No. 1922 題名 : Re^4:初めから 投稿者 : いはた
No. 1923 題名 : Re^5:初めから 投稿者 : いはた
No. 1924 題名 : Re^6:初めから 投稿者 : かぶねこ
No. 1925 題名 : Re^7:初めから 投稿者 : いはた
No. 1926 題名 : Re^8:初めから 投稿者 : かぶねこ HP
No. 1927 題名 : Re^9:初めから 投稿者 : いはた

全テキストを表示
順番に表示(No. 1921 から)


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

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