如何用MS Access查找替换工具替换VBA代码并正确插入换行？

一、用Access查找替换工具实现全局替换 #

1. 打开VBA编辑器（按Alt+F11）
2. 按Ctrl+H调出查找替换对话框
3. 在「查找内容」框中输入目标语句：

   Set conn = CurrentProject.Connection
   

4. 在「替换为」框中输入替换内容，注意插入换行要用Ctrl+Enter（直接按Enter会触发替换操作，无法生成多行代码）：
   先输入第一行conn.ConnectionString = extractConnectionStringADOfromOLE，按Ctrl+Enter插入换行，再输入第二行conn.OPEN
5. 点击「全部替换」完成全局替换

二、VBA代码插入换行的正确方式 #

• 在Access查找替换对话框中，必须用Ctrl+Enter插入换行符，才能生成多行代码
• 手动编写VBA代码时，直接按Enter换行即可，编译器会正常识别
• 如果通过VBA代码动态生成代码文本，要用vbCrLf或vbNewLine表示换行符，比如字符串拼接场景：

  Dim newCode As String
  newCode = "conn.ConnectionString = extractConnectionStringADOfromOLE" & vbCrLf & "conn.OPEN"
  

三、其他可行的替换方法 #

方法1：导出模块到文本后替换 #

• 右键VBA模块，选择「导出文件」，将所有模块导出为文本格式
• 用支持多行替换的文本编辑器（如Notepad++）打开文件，直接替换目标语句为两行代码
• 替换完成后，右键模块选择「导入文件」，将修改后的文本导回Access

方法2：用VBA代码自动批量替换 #

运行以下代码可自动遍历所有模块完成替换，运行前请务必备份数据库：

Sub BatchReplaceConnCode()
    Dim targetModule As Module
    Dim fullCode As String
    Dim findText As String, replaceText As String
    
    findText = "Set conn = CurrentProject.Connection"
    replaceText = "conn.ConnectionString = extractConnectionStringADOfromOLE" & vbCrLf & "conn.OPEN"
    
    For Each targetModule In CurrentProject.AllModules
        targetModule.Open
        ' 获取模块全部代码内容
        fullCode = targetModule.Lines(1, targetModule.CountOfLines)
        ' 执行替换
        fullCode = Replace(fullCode, findText, replaceText)
        ' 清空原代码并插入新内容
        targetModule.DeleteLines 1, targetModule.CountOfLines
        targetModule.InsertLines 1, fullCode
        ' 保存并关闭模块
        targetModule.Close acSaveYes
    Next targetModule
End Sub

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