Melissa was telling us:
Melissa nous racontait que :

Try something liike this:

'_______________________________________
Option Explicit

'_______________________________________
Public Sub BatchSaveAllAsDoc()

Dim myFile As String
Dim PathToUse As String
Dim PathToSave As String
Dim myDoc As Document

PathToUse = "C:\Test\"
PathToSave = PathToUse & "Doc\"

'Create directory if it does not exist
If Dir(PathToSave, vbDirectory) = "" Then
   MkDir PathToSave
End If

'Set the directory and type of file to batch process
myFile = Dir$(PathToUse & "*.dot")

While myFile <> ""
   'Open template
   Set myDoc = Documents.Open(PathToUse & myFile)
   With myDoc
       .SaveAs PathToSave & Left(myFile, Len(myFile) - 3) & "doc"
       .Close
   End With
   'Next file in folder
   myFile = Dir$()
Wend

End Sub
'_______________________________________