Hi Matt

Change this

       Documents.Open .FoundFiles(i)
       For j = 1 To ActiveDocument.Sections.Count
         With ActiveDocument.Sections(j)
           .Footers(wdHeaderFooterFirstPage).Range.Delete
           .Footers(wdHeaderFooterPrimary).Range.Delete
         End With
       Next j
      Documents.Close wdSaveChanges

to this

       Set oDoc = Documents.Open(Filename:=.FoundFiles(i), Visible:=False)
       For Each oSection in oDoc.Sections
         With oSection
           .Footers(wdHeaderFooterFirstPage).Range.Delete
           .Footers(wdHeaderFooterPrimary).Range.Delete
         End With
       Next oSection
       oDoc.Close wdSaveChanges

In addition, put the following lines at the start of the routine

Dim oDoc as Document
Dim oSection as Section

Matt,

You should be able to use Documents(1) instead of ActiveDocument.  Your
code would also fail to delete any even page footers.

I plugged your action into my standard batch file macro and it seemed
to work using Documents(1)

Sub BatchProcessFiles()
Dim strBatchDir As String
Dim oFSO As Scripting.FileSystemObject
Dim oBatchFolder As Scripting.Folder
Dim oBatchFile As Scripting.File
Dim oFld As Word.Field
Dim curCursor As Long

'Call function to pick a batch directory and set up for processing
strBatchDir = PickFolder
Set oFSO = New Scripting.FileSystemObject
Set oBatchFolder = oFSO.GetFolder(strBatchDir)

'Minimize screen flicker
curCursor = System.Cursor
System.Cursor = wdCursorWait
Application.ScreenUpdating = False

'Process files in the designated batch folder
For Each oBatchFile In oBatchFolder.Files
 'Narrow processing to Word files only
 If UCase(oFSO.GetExtensionName(oBatchFile.Path)) = "DOC" _
   Or oBatchFile.Type = "Word Document" Then
   Application.Documents.Open oBatchFile.Path, Visible:=False
   With Documents(1)
     Dim j As Long
     For j = 1 To Documents(1).Sections.Count
         With Documents(1).Sections(j)
           .Footers(wdHeaderFooterFirstPage).Range.Delete
           .Footers(wdHeaderFooterPrimary).Range.Delete
           .Footers(wdHeaderFooterEvenPage).Range.Delete
         End With
       Next j
     .Close SaveChanges:=wdSaveChanges
   End With
 End If
Next oBatchFile
Set oBatchFile = Nothing
If MsgBox("Do you want to process sub-folders in the batch folder?", _
        vbQuestion + vbYesNo, "Continue With Sub-Folders?") _
        = vbYes Then
 'call the recursive function
 ProcessSubFolders oBatchFolder.SubFolders, oFSO
End If
Set oFSO = Nothing
Set oBatchFolder = Nothing
'Restore visuals
Application.ScreenUpdating = True
System.Cursor = curCursor
End Sub

Function PickFolder() As String
'Open "Copy" so user can point and click to a path to use
Dim strFolderPath As String
With Dialogs(wdDialogCopyFile)
 If .Display <> 0 Then
   strFolderPath = .Directory
 Else
   MsgBox "Cancelled by User"
   Exit Function
 End If
End With
If Left(strFolderPath, 1) = Chr(34) Then
 strFolderPath = Mid(strFolderPath, 2, Len(strFolderPath) - 2)
End If
If Right(strFolderPath, 1) = "\" Then
 strFolderPath = Mid(strFolderPath, 1, Len(strFolderPath) - 1)
End If
PickFolder = strFolderPath
End Function

I copied but didn't edit the recursive function shown below

Function ProcessSubFolders(ByRef oBatchFolders As Scripting.Folders, _
        oSubFSO As Scripting.FileSystemObject)
Dim oSubFolder As Scripting.Folder
Dim oSubFolderFile As Scripting.File
Dim oFld As Word.Field
For Each oSubFolder In oBatchFolders
 For Each oSubFolderFile In oSubFolder.Files
   If UCase(oSubFSO.GetExtensionName(oSubFolderFile.Path)) = "DOC" _
     Or oSubFolderFile.Type = "Word Document" Then
     Application.Documents.Open oSubFolderFile.Path
     With ActiveDocument
       For Each oFld In .Fields
         If UCase(Mid(oFld.Code.Text, 2, 4)) = "DATE" _
           Or UCase(Mid(oFld.Code.Text, 2, 4)) = "TIME" Then
           oFld.Code.Text = " CREATEDATE \@ ""MMMM d, yyyy"" "
         End If
       Next oFld
      .Close SaveChanges:=wdSaveChanges
      End With
   End If
 Next oSubFolderFile
 'Call function for each sub-folder
 If oSubFolder.SubFolders.Count > 0 Then
   ProcessSubFolders oSubFolder.SubFolders, oSubFSO
 End If
Next oSubFolder
Set oSubFolderFile = Nothing
Set oSubFolder = Nothing
End Function