マクロを開かずにWordで実行するには？

Question

マクロを開かずにwordで実行する方法。 私は前に同じ質問をしました。
ソリューションは、次のとおりです。

Dim Word  
Dim WordDoc 

Set Word = CreateObject("Word.Application")  
Word.Visible = False 

Set WordDoc = Word.Documents.open("D:\working_folder\abc.doc")  
Word.Run "<macroname>"  
WordDoc.Save 

Word.Quit   
Set WordDoc = Nothing 
Set Word = Nothing 

これはあまりにも私のためにうまく機能しているが、この場合、ファイル名が（"abc.doc"）固有のものです。

同じフォルダにあるすべての単語ファイルに対してマクロを実行したいのですが？
マクロはすべてのファイルで定義されています。フォルダ内のすべてのファイル名を取得する方法を知りたいだけです。

Answer 1

テストされていないが、このような何か：あなたはしかし、それを含むファイルを開かずにマクロを実行することはできません

Dim Word, fldr, f  
Dim WordDoc 

Set Word = CreateObject("Word.Application")  
Word.Visible = False 

fldr = "D:\working_folder\" 
f = Dir(fldr & "*.doc*") 

Do while f<>"" 

    Set WordDoc = Word.Documents.open(fldr & f)  
    Word.Run "<macroname>"  
    WordDoc.Save 
    WordDoc.Close 
    f = Dir() 

Loop 

Word.Quit   
Set WordDoc = Nothing 
Set Word = Nothing 

。