ソースの状況: Windows XP で MS Office 2000 を使用する Notes アプリケーションを使用しています。新しい状況は、Windows 7 の MS Office 2010 でなければなりません。IBM Notes は 8.5.3FP3 です。古いものは、VBA テンプレートを使用して正しく動作する Notes と通信します。一度に Notes.NotesUiWorkSpace オブジェクトが作成され、ドキュメントが開き、リッチテキスト アイテムに移動し、すべてのコンテンツ (フォーマット済み) が選択され、クリップボードにコピーされます。次に、クリップボードの内容が VBA 経由で Word 文書に貼り付けられます。それはうまくいきます。2 番目の環境の同じコードは機能しなくなります。Notes.NotesUIWorkSpace オブジェクトを VBA でインスタンス化できないことに気付きました。エラーもヒントもありません。後でワークスペース オブジェクトを参照したときの実行時エラーのみ。
コードの抜粋を次に示します。
' this is a profile document which is filled correctly
Call prof.Save(True, True)
Call prof.replaceItemValue("Form", "Profile")
' setting up the ui
dim WS as Object
set WS = CreateObject("Notes.NotesUiWorkSpace")
Set uiprof = WS.EditDocument(True, prof)
' Set uiprof = WS.currentDocument
If uiprof.editMode Then Call uiprof.gotofield("RT")
Call uiprof.SelectAll
Call uiprof.Copy
Call uiprof.Close
' later on the clipboard will be pasted into the word document
ここで何が原因である可能性がありますか？今夜XP、MS Office 2010、Notesで環境を整えて、Windows 7が原因ではないことを確認しています。