У меня есть этот простой код, который должен открыть CMD и выполнить команду оболочки.
Dim Ap As Object
Set Ap = CreateObject("WScript.Shell")
Ap.Run "cmd.exe /cls"
Ap.Terminate
Код хорошо работает в Excel-VBA, но при попытке запустить его из документа Word я получаю: Runtime error '70': Permission Denied в строке: Ap.Run "cmd.exe /cls"
Я включил контент для текстового документа, для параметров Marco было установлено «Доверительный доступ к объектной модели проекта VBA».В чем может быть причина