ник: Дядя Федор
Диспетчером, естественно, проверял. Нет там ничего. 
Открытым оставлять не надо!
Закрыть, сохранить и открыть опенофисом. f_OpenFile00 (puti)
И нафинги все есть.
objWord.Documents.Save NoPrompt:=False, _
OriginalFormat:=wdOriginalDocumentFormat
objWord.Documents.Close
Err.Clear
If objWord.Application.Documents.Count > 0 Then
objWord.Visible = True
objWord.Activate
objWord.WindowState = 1
Else
objWord.Application.Quit
End If
Set objWord = Nothing
Err.Clear
f_OpenFile00 (puti)
End Sub
вот так примерно. Err.clear я уж потом вставил. Наверное, лишнее
|