TopPicLogo TopPicText

MS Word - Проверка открыт ли документ по полному пути

Private Sub IfWordFileIsOpen_Close(app As Object, sPath$)
'es 13.10.2017
'MS Word - Проверка открыт ли документ по полному пути
'--------------------------------------------------------------------------
Dim objDoc As Object
On Error GoTo IfWordFileIsOpen_Close_Err
    For Each objDoc In app.Documents
        'Debug.Print objDok.FullName
        If objDoc.FullName = sPath Then ' уже открыто!
            'Закрываем докумет перед перезаписью
            objDoc.Close
        End If
    Next objDoc

IfWordFileIsOpen_Close_Bye:
    Exit Sub

IfWordFileIsOpen_Close_Err:
    'MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in Sub: IfFileIsOpen_Close in module: [Название модуля]", _
    vbCritical, "Error in Application: " & Err.Source
    Err.Clear
    Resume IfWordFileIsOpen_Close_Bye

End Sub
Назад ToTop
L.E. 13.10.2017
Рейтинг@Mail.ru