如何修改VBA批量替换文本文件代码以支持正则处理换行断词？

可以直接在你现有的批量替换代码中集成VBA正则表达式，实现批量修复带<br />-的断词错误。以下是修改后的完整代码：

Sub ReplaceStringInFile()
    Dim objFSO As Object, objFil As Object, objFil2 As Object
    Dim StrFileName As String, StrFolder As String, strAll As String, newFileText As String
    Dim regExp As Object ' 正则对象
    
    Set objFSO = CreateObject("scripting.filesystemobject")
    Set regExp = CreateObject("VBScript.RegExp") ' 初始化正则对象
    
    ' 正则配置：匹配"单词部分<br />-单词部分"的断词
    With regExp
        .Pattern = "(\w+)<br />-(\w+)" ' 捕获前后单词片段
        .Global = True ' 全局替换所有匹配项
        .IgnoreCase = False ' 区分大小写（按需修改）
    End With
    
    StrFolder = "c:\macro\"
    StrFileName = Dir(StrFolder & "*.txt")

    Do While StrFileName <> vbNullString
        Set objFil = objFSO.opentextfile(StrFolder & StrFileName)
        strAll = objFil.readall
        objFil.Close
        
        ' 原有替换逻辑
        newFileText = Replace(strAll, "THIS", "THAT")
        newFileText = Replace(newFileText, "from", "to")
        
        ' 新增正则修复断词
        newFileText = regExp.Replace(newFileText, "$1$2")
        
        ' 写入修改后的内容
        Set objFil2 = objFSO.createtextfile(StrFolder & StrFileName)
        objFil2.Write newFileText
        objFil2.Close
        
        StrFileName = Dir
    Loop
    
    ' 释放对象
    Set regExp = Nothing
    Set objFSO = Nothing
End Sub

关键说明： #

• 正则模式：(\w+)<br />-(\w+) 会匹配类似exem<br />-tion的结构，(\w+)捕获断词前后的字母/数字片段，后续用$1$2将两部分拼接成完整单词（如exemtion）。
• 全局替换：.Global = True确保文件中所有符合规则的断词都被修复，而非只替换第一个。
• 兼容性：使用Late Binding（CreateObject）无需手动引用VBA正则库，直接运行即可。

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