Excel VBA中捕获DoEvents并关闭打开文件的解决方案

核心思路：通过错误捕获+清理代码强制关闭Word对象 #

点击开发工具的停止按钮会触发VBA的用户中断事件，我们可以把这个中断转化为错误触发，然后在错误处理块里执行Word文件的关闭逻辑，避免进程残留。

具体实现代码 #

首先在模块顶部声明全局的Word对象（确保中断后仍能引用到）：

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

然后修改你的处理过程，加入错误捕获和清理逻辑：

Sub ProcessWordToCSV()
    ' 将用户中断转为错误触发，方便后续处理
    Application.EnableCancelKey = xlErrorHandler
    
    ' 绑定错误处理标签
    On Error GoTo CleanupSection
    
    ' 初始化Word应用并打开文档
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Open("你的Word文件完整路径")
    
    ' 原有的段落遍历逻辑
    With wdDoc
        For Each para In .Paragraphs
            DoEvents
            txt = Trim(para.Range.Text)
            Debug.Print txt
        Next para
    End With
    
CleanupSection:
    ' 强制关闭打开的Word文档
    If Not wdDoc Is Nothing Then
        wdDoc.Close SaveChanges:=wdDoNotSaveChanges ' 不需要保存就用这个参数，需要保存则改为wdSaveChanges
        Set wdDoc = Nothing
    End If
    
    ' 退出Word应用程序
    If Not wdApp Is Nothing Then
        wdApp.Quit
        Set wdApp = Nothing
    End If
    
    ' 恢复默认的中断处理方式
    Application.EnableCancelKey = xlInterrupt
End Sub

关键说明 #

• Application.EnableCancelKey = xlErrorHandler：把用户点击停止的操作转化为错误，确保错误处理块能执行，而不是直接终止代码。
• 清理代码放在CleanupSection标签下：不管代码是正常结束还是被中断，都会执行这段逻辑，保证Word文档和应用被彻底关闭。
• 先关闭文档再退出应用：避免Word进程在后台残留，导致下次运行时出现文件被占用的报错。

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