Word VBA错误4198：错误处理循环重复触发异常问题求助

原代码的核心问题出在错误处理逻辑结构和变量类型上，导致第二次输入不存在的文件时触发4198错误，以下是具体问题和修复方案：

原代码的问题点 #

• LoopControl被声明为String类型，却用数值0/1赋值，类型不匹配易引发隐性错误。
• 错误处理标签errhandler紧跟正常执行代码后，导致文件打开成功时也会执行错误处理块代码，打乱逻辑。
• 错误处理后未正确重置错误捕获状态，循环时错误上下文未清理，重复触发错误时出现执行失败。

修复后的代码 #

Private Sub Document_Open()
    Dim BaseFilePath As String
    Dim Filename As String
    Dim SrcFileName As String
    Dim LoopControl As Boolean ' 改用Boolean类型更贴合逻辑
    
    BaseFilePath = "My Directory"
    LoopControl = False ' 初始化为未成功状态
    
    Do While Not LoopControl
        Filename = InputBox("Enter Name of File", "FileName", "Enter File Name Here")
        If Filename = "" Then Exit Sub ' 处理用户取消输入的情况
        
        SrcFileName = BaseFilePath & Filename
        
        On Error Resume Next ' 临时启用错误捕获
        Documents.Open SrcFileName
        If Err.Number = 0 Then
            ' 文件打开成功，标记为完成循环
            LoopControl = True
        Else
            ' 文件不存在或打开失败，提示用户
            MsgBox "Booking Form Doesn't Exist" & vbNewLine & "Please Check Visit Date and School Name as per Booking Form Filename"
        End If
        On Error GoTo 0 ' 重置错误捕获状态，确保下一次循环不受影响
    Loop
    
    MsgBox "File Exists"
End Sub

修复说明 #

1. 变量类型修正：将LoopControl改为Boolean类型，用True/False表示是否成功打开文件，逻辑更清晰，避免类型不匹配问题。
2. 错误处理优化：使用On Error Resume Next临时捕获错误，通过Err.Number判断是否出错，处理完成后立即用On Error GoTo 0重置错误状态，保证每次循环的错误上下文都是干净的。
3. 增加取消输入处理：若用户点击输入框的取消按钮，直接退出子程序，避免无意义的循环。
4. 简化逻辑结构：移除冗余的诊断弹窗，让代码更简洁，确保只有打开失败时才提示错误信息，成功时直接退出循环。

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