Обработка ошибок

On Error GoTo

On Error GoTo err1
'включаем первую обработку
'создаём исключение
On Error GoTo 0
'отключаем её
On Error GoTo err2
'включаем вторую обработку
'создаём исключение
Exit Sub
'выход из процедуры
err1:
    MsgBox Err.Description
'обрабатываем первое исключение
Exit Sub
'выход из процедуры
err2:
    MsgBox Err.Description
'обрабатываем второе исключение

On Error GoTo errLabel
Open "C:\имя_файла" For Input As 0
Exit Sub
errLabel:
Select Case Err.Number
...
Case 52
    MsgBox "Неправильный дискриптор файла"
Case 53
    MsgBox "Файл не найден"
...
Case Else
    MsgBox "Другая ошибка"
End Select

Sub HeaderCopy()
On Error GoTo footercopy
Selection.HomeKey Unit:=wdStory
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Do
    Selection.WholeStory
    Selection.Copy
    ActiveWindow.ActivePane.View.NextHeaderFooter
    Loop
footercopy:
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Application.Run "footercopy"
End Sub
Sub footercopy()
On Error GoTo ExitSub
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Do
    Selection.WholeStory
    Selection.Copy
    ActiveWindow.ActivePane.View.NextHeaderFooter
    Loop
ExitSub:
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub