MyTetra Share
Делитесь знаниями!
MS Word - Проверка открыт ли документ по полному пути
19.07.2018
19:28
Раздел: VBA - Access - msa.polarcom.ru - 11 Импорт - Экспорт


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.52
Яндекс индекс цитирования