This newsgroup is for ACCESS macros, not for Word macros..... but here is
generic code for doing what you seek:
Dim strFileName As String
strFileName = Dir("C:\MyFolder\*.*")
Do While strFileName <> ""
Debug.Print strFileName
strFileName = Dir()
Loop