vba - “该命令不可用，因为没有打开文档” - Lotus Notes 中的 MS Word 2010 VBA 错误

Question

我有一些 VBA 代码，在 Lotus Notes 8.5.2 中执行，基于 MS Word 2003 模板创建 MS Word 文档。这对我使用 Word 2003、2007 和 2010 来说效果很好。但是，一位使用 MS Word 2010 的客户MS Word: the command is not available because no document is open在一行中遇到了错误：

Set wdObject = createObject("word.Application")
wdObject.Documents.Add( wordpath &  "\" & docname )
wdObject.ActiveDocument.Builtindocumentproperties(wdPropertyTitle) = sTemplateName

为什么这个错误会发生在一个使用 Word 2010 的用户而不是我？她有 Windows 7，未配置文件夹重定向。

Answer 1

您可能必须像这样编写代码：

    On Error Goto CreateNewInstance
    Set msWord = GetObject("", "Word.Application")
Done:
    Set CreateMSWordDocument = msWord
    Exit Function
CreateNewInstance:
    Print "Loading Microsoft Word.... Please Wait...."
    Err = 0
    Set msWord = CreateObject("Word.Application")
    Print "Microsoft Word Loaded"
    Resume Done