매크로를 열지 않고 매크로를 실행하는 방법은 무엇입니까?

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 

.