vba - 没有权限; 错误 70 ....Word 2007

Question

运行 Word 2007 宏时遇到一个奇怪的问题。

背景信息：此特定宏使用 ActiveX 控件。这允许用户从数据库中获取客户/地址信息并填充到 Word 文档的格式化字段中。

几年来，所有这些都在办公室的 50 多台用户 PC 上完美运行。昨天早上来到办公室，突然它不再工作了。每个人都会收到错误 70 权限被拒绝消息。

以供参考sProgressPath = "p:\acts\"

以下是部分代码：

Dim InFile As String

InFile = sFolderPath & "Results.txt"

'Delete results file if present

If Dir(InFile) <> "" Then
   Kill InFile
End If

'start an instance of progress by executing the batch file

Set objshell = CreateObject("WScript.Shell")

strBatFilePath = sProgressPath & "how2send.bat"

**objshell.Run strBatFilePath, 0**

Set objshell = Nothing