来源情况:我有一个在Windows XP下使用MS Office 2000的Notes应用程序。新情况必须是Windows 7下的MS Office 2010.IBM Notes是8.5.3FP3。 旧版本使用VBA模板与Notes进行通信,该模板正常工作。同时创建Notes.NotesUiWorkSpace对象以打开文档,导航到richtext项目,选择所有内容(格式化)并复制到剪贴板。然后,剪贴板内容将通过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引起的。
答案 0 :(得分:0)
如果Windows 7计算机是64位,请查看答案here。请注意那些引用COM类(lotus。),并且您正在使用OLE类(注释。),但我相信64/32位问题适用于两者。