0

Lotus Notes 8.5.2 内で実行され、MS Word 2003 テンプレートに基づいて MS Word ドキュメントを作成する VBA コードがあります。これは、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 を使用している 1 人のユーザーにこのエラーが発生し、私には発生しないのはなぜですか? 彼女は Windows 7 を使用しており、フォルダー リダイレクトは構成されていません。

4

1 に答える 1

0

次のようにコーディングする必要がある場合があります。

    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
于 2012-04-27T15:36:53.937 に答える