如何向VBA Word添加错误循环？

Sub AddErrorLoop()
    On Error Resume Next
    
    ' 代码段1
    ' 可能会出现错误的代码
    
    If Err.Number <> 0 Then
        ' 处理错误的代码
        ' 可以根据不同的错误类型执行不同的操作
        ' 例如，可以使用MsgBox函数显示错误信息
        MsgBox "Error: " & Err.Description
        Err.Clear ' 清除错误信息，以便后续代码继续执行
    End If
    
    ' 代码段2
    ' 可能会出现错误的代码
    
    If Err.Number <> 0 Then
        ' 处理错误的代码
        ' 可以根据不同的错误类型执行不同的操作
        ' 例如，可以将错误信息记录到日志文件中
        Dim logFile As String
        logFile = "C:\error.log"
        Open logFile For Append As #1
        Print #1, "Error: " & Err.Description
        Close #1
        Err.Clear ' 清除错误信息，以便后续代码继续执行
    End If
    
    On Error GoTo 0
End Sub