模板加载期间的 Word 2010“对象错误”

Question

我们最近从 2003 升级到 Office 2010。在 2003 年运行良好的 VBScript 类型代码现在在 2010 年间歇性失败，出现“对象错误”或“命令失败”。

从我设法解决的问题来看，这似乎是 Normal 模板仍在下载/加载的结果，尽管 CreateObject 调用已完成。当代码运行时，似乎正常加载很快。

代码：

Dim oWord As Object
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set document = oWord.Documents.Open("\\networkshare\networkshare\mytemplate.dot")

代码在“设置文档=”上失败

我一直在寻找解决方案，但是我在其他地方没有发现任何人遇到此问题的痕迹。如果我在 oWord.Visible 和 Set 文档之间插入延迟，问题就解决了。不过，我更愿意正确解决这个问题，因为我们经常一次处理数百个文档。 我试图检测正常加载的完成，但是在这方面没有成功。

有没有其他人看到这个问题并找到了解决方案？

非常感谢

菲利普

Answer 1

也许你应该在创建之前尝试“抓取”一个 Word 对象。

Dim oWord As Object
On Error Resume Next
Set oWord = GetObject(,"Word.Application")
If oWord Is Nothing Then Set oWord = CreateObject("Word.Application")

或者，禁用警报，并将oWord.Documents.Open 放入循环中。几次，中间或直到 .dot 模板打开，然后重新启用警报。

由于它位于网络共享上，因此延迟很可能高于本地存储设备。这可以解释为什么如果等待工作正常。

根据 .dot 模板的作用，您可能希望它在打开后可见。

Answer 2

用于解决此问题的代码：

Set oWord = CreateObject("Word.Application")
On Error Resume Next
Set oDoc = Nothing
Do While oDoc Is Nothing
Set oDoc = oWord.Documents.Open([template path])
<Wait 50ms>
Loop On Error Goto 0

离题，但对其他有此问题的人有用： 从 Word 2010 开始，ActivePrinter 属性现在区分大小写，因此您必须确保大小写与打印机对话框中显示的相同。 设置此属性失败时 Word 2010 生成的错误是“Microsoft Word：存在打印机错误”