"the command is not available because no document is open" - 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