Не удается создать экземпляр NotesUIWorkspace из VBA (Word)

Исходная ситуация: у меня есть приложение Notes, которое использует MS Office 2000 под Windows XP. Новая ситуация должна быть MS Office 2010 под Windows 7. IBM Notes - 8.5.3FP3. Старый использует шаблон VBA для связи с Notes, который работает должным образом. Одновременно создается объект Notes.NotesUiWorkSpace для открытия документа, перехода к элементу форматированного текста, выбора всего содержимого (отформатированного) и копирования в буфер обмена. Затем содержимое буфера обмена вставляется в документ Word через VBA. Это отлично работает. Тот же код во второй среде небольше не работает. Я заметил, что объект 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.

Ответы на вопрос(1)

Ваш ответ на вопрос