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