тема не относится, напрямую, к нотусам, но мыж "не можем" без винды
при работе через КОМ, бывает необходимо закрывать приложения МСО...
что бы не заставлять это делать пользователей , можно звать (для ворда, например):
открытое файло молча не сохранится
грубо, но эффективно
теоретически - можно искать и свои окошки - но кому охота?!
при работе через КОМ, бывает необходимо закрывать приложения МСО...
что бы не заставлять это делать пользователей , можно звать (для ворда, например):
Код:
Sub CloseMSWord()
On Error Goto ErrH
Dim objs As Variant
Dim strSQL As String
Dim strWMI As String
strWMI = "winmgmts:"
strSQL = "Select * From Win32_Process "
strSQL = strSQL & "where Name = 'WINWORD.EXE'"
Set objs = GetObject(strWMI).ExecQuery(strSQL)
Forall obj In objs
obj.Terminate
End Forall
Quit:
Exit Sub
ErrH:
RaiseError
Resume Quit
End Sub
грубо, но эффективно
теоретически - можно искать и свои окошки - но кому охота?!