Цитата Iska:
|
Что тут может быть «неверного»?! »
|
Здравствуйте. У меня чуть, чуть другая проблема. В частности нужно обработать ошибку открытия файла Word.
Имеется скрипт vbs который сравнивает документы которые сдают обучающиеся.
Код:
Dim path, WshShell 'Объявляем переменные
Set WshShell = WScript.CreateObject("WScript.Shell") 'Создаем объект для пути
path = WshShell.CurrentDirectory & "\" 'Путь до скрипта и файлов
Set Application = CreateObject("Word.Application") ' Создаём объект с Word-ом
Application.Visible = False ' делаем НЕвидимым Word
Set Proveri = Application.Documents.Open(path & "doc1.docx", , False, , , , , , , , , True)
Set Obrazec = Application.Documents.Open(path & "doc2.docx", , False, , , , , , , , , True)
Set doc3 = Application.CompareDocuments(Proveri, Obrazec, , False, , , , , , , , , True)
doc3.SaveAs(path & "doc3.docx")
Application.Quit ' закрываем Word
Иногда обучающиеся получают на обработку файл формата rtf, но потом должны сохранить результат в docx и некоторые обучающиеся не зная, как это сделать просто вручную меняют расширение файла с rtf на docx. Естественно скрипт при открытии такого файла выдает мне ошибку. А нужно чтобы он условием If проверил это и написал об этой ошибке ученику в итоговый файл и продолжил работу. Подскажите пожалуйста каким обработчиком это можно сделать? Заранее спасибо.
