Открытие файла - VBA

[Asmussen]

Всем привет.
Почему при открытии документа средствами VBA, если отсутствует какой-либо шрифт, не выдается соответствующий диалог (что шрифт не найден и тд).
Можно сделать чтобы оно было? Или как-то иначе отследить этот момент.

 

[dizzy]

Ответ: Открытие файла - VBA

Хороший вопрос. У меня подобная ситуация, хотя диаметрально противоположная. При сохранении перед закрытием файла скриптом, не выдается сообщение о невозможности сохранения из-за каких-либо причин (конкретно было из-за того что файл был уже открыт на другой машине, в результате чего файл закрылся без сохранения).

А вопрос тот же. Можно ли отследить таковой момент и как?

 

[dizzy]

Ответ: Открытие файла - VBA

Digitart Сейчас проверил на машине - не работает. Не могу понять в чем прикол. Если Вы уже пользовались этим кодом, то не могли бы просвятить, что может быть не так? Я в модуль с макросом загнал этот код, и добавил условие в начале:

If IsFileAlreadyOpen(ActiveDocument.FileName) = TRUE Then
MsgBox ("Файл невозможно сохранить")
End
End If

А в итоге он как-то по непонятному то работает, то нет. То Err.LastDllError = 32, а то Err.LastDllError = 2

Не въезжаю я, что-то

 

[Asmussen]

Ответ: Открытие файла - VBA

С открытием разобрался.
Нужно добавить в код PanoseMatching = cdrPanosePrompt.
Тогда все работает как надо.