“该命令不可用，因为没有文档打开” - 来自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