Sub ProcessFiles()
' Steven Marzuola
'Macro to run macros in all files inside a folder
'
    myDirectory = "C:\Translation\Project1"
    ChangeFileOpenDirectory myDirectory 

    Dim CurrFile As String
    CurrFile = Dir(myDirectory & "\*.doc")
    
    Do While CurrFile <> ""

' Insert code to open a file. This will probably work:
        Documents.Open FileName:=CurrFile

' Then call the macros
' [MISSING LINE]

' Close the file if desired.  
' [MISSING LINE]

' Call the Dir command again to get the next filename.
        CurrFile = Dir
    Loop
End Sub