Here is my final code.  I put together from other posts plus my own
input.
This script opens each file 1 at a time, executes a macro, then closes
the document.

Sub MacroRunnerWithArrays()

Dim FolderPath As String
Dim macroName As String
Dim oDoc As Document

Application.ScreenUpdating = False
FolderPath = "S:\public\Testing - Emerge\Unprocessed"
macroName = "Macro1"

 With Application.FileSearch
   .NewSearch
   .LookIn = FolderPath
   .SearchSubFolders = False
   .FileType = msoFileTypeAllFiles
   If Not .Execute() = 0 Then
     For j = 1 To .FoundFiles.Count
       Set oDoc = Documents.Open(.FoundFiles(j))
       Application.Run macroName
       ActiveDocument.Close
       Set oDoc = Nothing
     Next j
   Else
     MsgBox "No files in specified folder(s)"
   End If
 End With
Application.ScreenUpdating = True
MsgBox "All Done"
End Sub

***** Here is the code for Macro 1 which Performs the Save As function
*****

Sub Macro1()
'
Dim pDoc As Word.Document
docpath = "S:\public\Testing - Emerge\Processed\"

For Each pDoc In Documents
   sTitle = ActiveDocument.Name
   pos = InStr(sTitle, ".")
   If pos > 0 Then
       sTitle = Left(sTitle, pos - 1)
       sTitle = docpath & sTitle & ".doc"
       ActiveDocument.SaveAs FileName:=sTitle
       'ActiveDocument.Close
   End If
Next
End Sub

*** Note I commented out the document close on Macro1 as it was already
coded in the first Macro ***