Private Sub Class_Terminate()
	? Принудительная завершающая очистка и закрытие программы
	Me.Word.Quit False
End Sub