运行时错误“ 70”：仅在Word VBA中被拒绝权限

Question

我有这个简单的代码，应该打开一个CMD并执行一个shell命令。

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"

我已为word文档启用了内容，Marco设置已设置为“信任对VBA项目对象模型的访问”。可能是什么原因