源情况:我有一个Notes 应用程序,它在Windows XP 下使用MS Office 2000。新情况必须是Windows 7下的MS Office 2010。IBM Notes是8.5.3FP3。旧的使用 VBA 模板与正常工作的 Notes 进行通信。一次创建 Notes.NotesUiWorkSpace 对象以打开文档、导航到富文本项目、选择所有内容(格式化)并复制到剪贴板。然后通过 VBA 将剪贴板内容粘贴到 Word 文档中。这很好用。第二个环境中的相同代码不再起作用。我注意到 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 引起的。