Проверить открыт ли файл?

Возникающая ошибка и может быть проверкой.

sub ddd()
pathcc =  "C:\ОД.doc"
On Error GoTo ErrorHandler
        
        ActiveDocument.SaveAs FileName:=pathcc, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="",     AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
Exit Sub
ErrorHandler:   
    Select Case Err.Number 
        Case 55  
            pathcc = "C:\ОД1.doc"
    End Select
Resume Next
End Sub

Этот код не работает. Документ "C:\ОД1.doc" не создаётся.

Попробовал.
Создался ещё 1 документ с именем ОД.doc и Word завис.

Дело в том, что Next передает упраление инструкции СЛЕДУЮЩЕЙ ЗА той котораяя сгенерировала ошибку. В данном случае после Resume Next будет будет выполняться Exit Sub. То есть понятно, почему НЕ создается новый файл.
Проверку наличия файля можно осуществить следующим способом:

Function FileExist (ByVal partcc As String) As Boolean

'Функция возвращает True, если файл существует

FileExist= (Dir$(partcc) > "")
End Function

Плюнул на всё и оставил такой код:
sub ddd()
pathcc =  "C:\ОД.doc"
On Error GoTo ErrorHandler 
ActiveDocument.SaveAs FileName:=pathcc, FileFormat:= _        wdFormatDocument, LockComments:=False, Password:="",     AddToRecentFiles:= _        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _        SaveAsAOCELetter:=False
Exit Sub
ErrorHandler:
    Select Case Err.Number
        Case 5153
        ActiveDocument.Close
        Application.Activate
        Case Else
    End Select
Resume
End Sub

Спасибо за помощь.
Думаю, FileExist когда-нибудь пригодится.

у меня не загружаются данные с макросом Visual Baisic и выдает ошибку: Workbooks.Open Filename:=fName!проверьте данные и место нахождения файла, а сним все впорядке и имя и место нахождение он просто его не видит. Я голову сломала! Что делать? помогите!

И код сильно похож на работу внутри Excel'a...