フォルダ内のファイルに順番にマクロ実行（VBA）

こんにちは。
いつもこのサイトにはお世話になっています。

　いま、WORDマクロで、あるプログラムを作成したのですが、現在の状態だと、ファイルにマクロを実行させたい場合、そのファイルを開いてマクロを実行するしかありません。
　そうではなくて、指定されたフォルダの中にあるファイルのうち、rtf拡張子で終わっているものに順番に自動的にマクロを実行するというようなプログラムは書けないのでしょうか。
　プログラムのなかに、ファイルのパスを指定してそのファイルに実行する方法は分かったのですが、フォルダだけ指定しておいて（というよりユーザにテキストボックスで指定させて）、そのフォルダに入っているrtfファイルすべてにマクロを実行する方法はありますでしょうか？
　
　もしありましたら教えていただいたいと思い投稿しました。よろしくお願いします。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2004/10/21 11:20

ある指定したフォルダ内の、ファイル名が全て捉えられれば良いのでしょう。

そうであれば下記を参考に。誤解していたら済みません。
Sub test02()
Const sPATH = "c:\My Documents\" 'ファイルの保管場所
Dim sFILENAME As String 'ファイル名
sFILENAME = Dir(sPATH & "*.doc") 'ファイルのパスと種類を指定
While sFILENAME <> "" '空文字以外の場合ループ
MsgBox "ファイル名 " & sFILENAME
sFILENAME = Dir() '引数無しのDir関数を呼び出すと次のファイル名を返す
Wend
End Sub

この回答への補足

ありがとうございます。
フォルダ内のファイルの一覧が手に入れば、それらにぜんぶマクロを実行すればいいので、できると思います。
Dirはそういうふうにも使えるんですね、しりませんでした。さっそく、試してみます。
どうもありがとうございます！

補足日時：2004/10/21 11:48

この回答へのお礼

いただいたコードで試したら、うまくいきました。
1ヶ月くらい、悩んでいたので、
たいへん助かりました。
お世話になりました！

お礼日時：2004/10/21 14:58

No.2 回答者： popesyu 回答日時： 2004/10/21 11:30

何がしたいのかよく分からないのですが、下記サンプルを参考に各ファイルに何かをされて下さい。

フォルダを指定して、そのフォルダのファイル一覧を取得するサンプル。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …

ExcelVBAでWord（.doc）ファイルを操作する（２）
http://members.at.infoseek.co.jp/kenchan_h/index …

この回答への補足

どうもありがとうございます。
フォルダのファイル一覧が取得できれば、あとは問題ないと思います。どうもありがとうございました！

補足日時：2004/10/21 11:52