MyTetra Share
Делитесь знаниями!
MS Word - Проверка открыт ли документ по полному пути
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 11 Импорт - Экспорт
Запись: xintrea/mytetra_db_adgaver_new/master/base/1532017681pr7w0rlges/text.html на raw.githubusercontent.com

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



Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования