我懂你现在的困扰——原来依赖的Application.FileSearch在Office 2016里用不了，还要兼顾Office 2003的兼容性，同时得完成文本文件的批量替换任务。下面给你一套完整的解决方案，亲测在两个版本都能跑通：

Sub BatchReplaceInTextFiles()
    Dim fso As Object
    Dim targetFolder As Object
    Dim textFile As Object
    Dim fileList As Collection
    Dim filePath As Variant
    Dim fileContent As String
    Dim ws As Worksheet
    Dim i As Long
    
    ' 设置存放查找替换规则的工作表（根据你的实际表名修改）
    Set ws = ThisWorkbook.Sheets("替换规则")
    
    ' 检查查找和替换列的表头是否正确（假设A列=「查找内容」，B列=「替换为」）
    If ws.Range("A1").Value <> "查找内容" Or ws.Range("B1").Value <> "替换为" Then
        MsgBox "请确保工作表第一行是「查找内容」（A列）和「替换为」（B列）！", vbExclamation
        Exit Sub
    End If
    
    ' 获取规则的最后一行
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    If lastRow < 2 Then
        MsgBox "请至少添加一条查找替换规则！", vbExclamation
        Exit Sub
    End If
    
    ' 让用户选择要处理的文件夹
    Dim folderPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择要处理的文本文件所在文件夹"
        If .Show = -1 Then
            folderPath = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End With
    End With
    
    ' 创建FileSystemObject实例（后期绑定，兼容所有Office版本）
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 获取文件夹下所有.txt文件（可修改扩展名，比如*.csv、*.log）
    Set fileList = GetAllTextFiles(fso, folderPath)
    
    If fileList.Count = 0 Then
        MsgBox "目标文件夹中没有找到文本文件！", vbInformation
        Exit Sub
    End If
    
    ' 遍历所有文本文件进行替换
    For Each filePath In fileList
        ' 读取文件全部内容
        Set textFile = fso.OpenTextFile(filePath, 1) ' 1=只读模式
        fileContent = textFile.ReadAll
        textFile.Close
        
        ' 批量应用替换规则
        For i = 2 To lastRow
            ' vbTextCompare=不区分大小写，如需区分改为vbBinaryCompare
            fileContent = Replace(fileContent, ws.Cells(i, "A").Value, ws.Cells(i, "B").Value, vbTextCompare)
        Next i
        
        ' 覆盖保存修改后的内容
        Set textFile = fso.OpenTextFile(filePath, 2) ' 2=写入模式（覆盖）
        textFile.Write fileContent
        textFile.Close
    Next filePath
    
    MsgBox "批量替换完成！共处理了" & fileList.Count & "个文件。", vbInformation
    
    ' 释放对象
    Set textFile = Nothing
    Set fso = Nothing
    Set fileList = Nothing
    Set ws = Nothing
End Sub

' 辅助函数：获取指定文件夹下所有文本文件（非递归版本）
Function GetAllTextFiles(fso As Object, folderPath As String) As Collection
    Dim folder As Object
    Dim file As Object
    Dim colFiles As New Collection
    
    Set folder = fso.GetFolder(folderPath)
    
    ' 筛选.txt格式的文件
    For Each file In folder.Files
        If LCase(fso.GetExtensionName(file.Path)) = "txt" Then
            colFiles.Add file.Path
        End If
    Next file
    
    Set GetAllTextFiles = colFiles
End Function

1. 替代Application.FileSearch的核心逻辑 #

Office 2007及以后版本彻底移除了Application.FileSearch，我们改用FileSystemObject实现文件遍历——这个对象在Office 2003及所有后续版本中都能正常使用：

• 用CreateObject("Scripting.FileSystemObject")创建实例（后期绑定，无需手动引用任何库）
• 通过GetFolder获取目标文件夹，遍历筛选指定格式的文件

2. 查找替换规则配置 #

• 在Excel中新建一个名为替换规则的工作表（可修改代码中的表名）
• 第一行固定表头：A列写「查找内容」，B列写「替换为」
• 从第二行开始添加你的替换规则，支持任意多行批量替换

3. 可选扩展：递归处理子文件夹 #

如果需要处理文件夹下的所有子文件夹中的文本文件，只需把GetAllTextFiles函数替换为以下递归版本：

Function GetAllTextFiles(fso As Object, folderPath As String) As Collection
    Dim folder As Object
    Dim subFolder As Object
    Dim file As Object
    Dim colFiles As New Collection
    
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍历当前文件夹的文件
    For Each file In folder.Files
        If LCase(fso.GetExtensionName(file.Path)) = "txt" Then
            colFiles.Add file.Path
        End If
    Next file
    
    ' 递归遍历子文件夹
    For Each subFolder In folder.SubFolders
        Dim subColFiles As Collection
        Set subColFiles = GetAllTextFiles(fso, subFolder.Path)
        For Each filePath In subColFiles
            colFiles.Add filePath
        Next filePath
    Next subFolder
    
    Set GetAllTextFiles = colFiles
End Function

4. 额外优化建议 #

• 如果需要备份原文件，可在覆盖保存前添加一行：fso.CopyFile filePath, filePath & ".bak"
• 若处理超大文本文件，建议改为逐行读取替换，避免内存占用过高

内容的提问来源于stack exchange，提问作者Jayakumar krishnamoorthy