Word邮件合并VBA宏运行极慢且无法用Ctrl+C中断求助

原代码核心性能缺陷 #

• 每处理1条记录就新建Word文档，频繁的文档创建、激活、关闭操作占据了绝大多数耗时
• Application.ScreenUpdating = False未生效，新建文档会强制触发界面重绘
• 宏执行时处于完全阻塞状态，系统无法响应任何中断指令（如Ctrl+C）

优化实现思路 #

1. 直接在主文档完成合并与导出：跳过新建临时文档的步骤，定位目标记录后直接导出主文档内容
2. 添加中断支持：循环中插入DoEvents，让系统有机会响应用户操作
3. 关闭额外系统开销：禁用自动保存、事件触发、语法检查等非必要功能

优化后的代码 #

Sub MailMergeToPdfOptimized()
    Dim masterDoc As Document
    Dim recordCount As Long, currentRecord As Long
    Dim pdfPath As String
    
    Set masterDoc = ActiveDocument
    recordCount = masterDoc.MailMerge.DataSource.RecordCount
    
    ' 关闭非必要系统功能，最大化性能
    Application.ScreenUpdating = False
    Application.DisplayAlerts = wdAlertsNone
    masterDoc.AutoSaveOn = False
    
    On Error GoTo Cleanup ' 确保异常时恢复系统设置
    
    For currentRecord = 1 To recordCount
        ' 定位到当前记录并刷新合并内容
        masterDoc.MailMerge.DataSource.ActiveRecord = currentRecord
        masterDoc.MailMerge.ViewMailMergeFieldCodes = False
        masterDoc.MailMerge.ViewMailMergeFieldCodes = True
        
        ' 拼接PDF保存路径
        pdfPath = masterDoc.MailMerge.DataSource.DataFields("PdfFolderPath").Value & _
                  Application.PathSeparator & _
                  masterDoc.MailMerge.DataSource.DataFields("PdfFileName").Value & ".pdf"
        
        ' 直接导出主文档为PDF
        masterDoc.ExportAsFixedFormat _
            OutputFileName:=pdfPath, _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint
        
        ' 响应中断指令，避免界面卡死
        DoEvents
        
        ' 每处理100条记录刷新一次，避免内存泄漏
        If currentRecord Mod 100 = 0 Then
            Application.ScreenUpdating = True
            Application.ScreenUpdating = False
        End If
    Next currentRecord

Cleanup:
    ' 恢复系统默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = wdAlertsAll
    masterDoc.AutoSaveOn = True
    
    If Err.Number <> 0 Then
        MsgBox "处理出错：" & Err.Description, vbCritical
    End If
End Sub

关键优化点说明 #

• 跳过临时文档：直接在主文档更新合并字段，省去文档创建/关闭的巨大开销，速度至少提升5-10倍
• DoEvents作用：让系统在循环间隙处理用户输入，此时可通过Ctrl+C中断宏执行
• 关闭非必要功能：禁用自动保存、弹窗提示等，减少后台资源消耗
• 错误处理：确保无论是否异常，都能恢复Word默认设置，避免影响后续操作

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