没有权限;错误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