Excel宏报错致Word文档无法手动打开，求优雅解决方案

问题说明 #

编写Excel VBA的Sub过程时，操作Word文档触发运行时错误后，目标文档（Test.docx）无法通过资源管理器双击打开，目前只能靠重启电脑解决，需要更高效的方案。触发错误的测试代码如下：

Sub GetInfoOutOfWordDocument()

'Init
Dim appWord As Word.Application
Dim document As Word.Document
Dim strFolder As String
Dim strFile As String
Dim MyArray() As Variant ' for arising the error

' Select the word document
strFolder = "C:\Users\"
strFile = Dir(strFolder & "Test.docx", vbNormal)

' Open the word document
Set appWord = CreateObject("Word.Application")
Set document = appWord.Documents.Open( _
    FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, ReadOnly:=False, Visible:=False)

' Getting the needed information out of your Word document...

' Now the error occurs - e.g. runtime error
MyArray(1)=5
' Problem: The above opened Word document isn't closed properly and therefore 
I'm not able to open the specific Word document by hand

dokument.Close wdDoNotSaveChanges
appWord.Quit
Set document = Nothing
Set appWord = Nothing

End Sub

错误根源 #

1. 代码未加入错误处理机制，触发运行时错误后，后续的文档关闭、Word进程退出代码完全不会执行，导致Word进程残留，文档被锁定
2. 代码存在语法错误：变量名写错（dokument应为document）；未初始化的数组直接赋值（MyArray(1)=5）触发报错

解决方案 #

1. 给代码添加错误处理逻辑 #

通过On Error GoTo语句捕获错误，确保无论是否报错，都能执行文档关闭、进程退出的清理操作，避免进程残留。

2. 手动清理残留Word进程（紧急解决当前锁定问题） #

不用重启电脑，直接打开任务管理器：

• 找到WINWORD.EXE进程（注意区分手动打开的和VBA残留的）
• 结束对应的残留进程，即可解锁文档

3. 修正代码中的语法错误 #

• 修正变量名拼写错误
• 初始化数组后再赋值（如果需要使用数组）

修复后的完整代码 #

Sub GetInfoOutOfWordDocument()
    'Init
    Dim appWord As Word.Application
    Dim document As Word.Document
    Dim strFolder As String
    Dim strFile As String
    Dim MyArray() As Variant
    
    ' 启用错误捕获，跳转到错误处理标签
    On Error GoTo Cleanup
    
    ' Select the word document
    strFolder = "C:\Users\"
    strFile = Dir(strFolder & "Test.docx", vbNormal)
    
    ' 检查文件是否存在
    If strFile = "" Then
        MsgBox "Test.docx未找到"
        GoTo Cleanup
    End If
    
    ' Open the word document
    Set appWord = CreateObject("Word.Application")
    Set document = appWord.Documents.Open( _
        FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, ReadOnly:=False, Visible:=False)
    
    ' Getting the needed information out of your Word document...
    
    ' 示例：正确初始化数组后赋值（如果需要使用数组）
    ReDim MyArray(1 To 1)
    MyArray(1) = 5
    
Cleanup:
    ' 关闭文档，无论是否报错都会执行
    If Not document Is Nothing Then
        document.Close wdDoNotSaveChanges
        Set document = Nothing
    End If
    
    ' 退出Word程序
    If Not appWord Is Nothing Then
        appWord.Quit
        Set appWord = Nothing
    End If
End Sub

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