Does using FileSystemObject guarantee the sort order? Another way of handling this, without resorting to FileSystemObject, would be to use:
Code:
Dim FileArray() As String
Dim i As Long
'Loop while there are still files to process
Do While File <> ""
i = i + 1
ReDim Preserve FileArray(i)
FileArray(i) = File
File = Dir
Loop
WordBasic.SortArray FileArray
For i = 1 To UBound(FileArray)
Set Target = Documents.Open(FileName:=Folder & FileArray(i), AddToRecentFiles:=False, Visible:=False, ReadOnly:=True)
...
Next