Hi Paul. I am sure Greg's addin does use DIR. It is a very useful tool.
My point was that if it is a simple (say a single word or phrase) operation, then it actually is NOT all that complicated.
Code:
Sub ChangeSomething()
Dim file
Dim path As String
Dim r As Range
path = "c:\ThisOne\"
file = Dir(path & "*.doc")
Do While file <> ""
Documents.Open path & file
Set r = ActiveDocument.Range
r.Find.Execute FindText:="this phrase", _
ReplaceWith:="booga booga whatever", Replace:=wdReplaceAll
ActiveDocument.Save
ActiveDocument.Close
file = Dir()
Loop
End Sub
All Word docs in the ThisOne folder get the phrase changed. Yes, for sure, the addin is handy, and it works. However, again, if it is a simple operation, then performing that action on all files in a folder is also simple.
The OP asked: "is there any way to replace some text in multiple files at one time with a new text"
The answer of course is, yes.