Пересылка данных из документа,выбранного во View

  • Автор темы asdfghjkl
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

asdfghjkl

#1
Есть вьха с документами. Необходимо из выделенного документа экспортировать содержимое поля док-а в Word. Но появилась проблема, при запуске действия не определяется выбранный документ. Вот что я наработал.

Dim wk As New NotesUIWorkspace
Dim uiview As NotesUIView
Set uiview = wk.CurrentView
Dim view As NotesView
Set view = uiview.View
Dim doc As NotesDocument
Set doc = view.GetNthDocument(n&)
Dim perem As Variant
perem = doc.Vozr(0)
If perem = "" Then
Messagebox "Данные для пересылки отсутствуют", MB_OK
Else
customername = "filesword"
Dim word As Variant
Dim wordoc As Variant
Set word = CreateObject("Word.Application")
Call word.documents.add("D:\Wordproba\Admin3.dot")
Set worddoc = word.activedocument
worddoc.FormFields(1).result = perem
worddoc.saveas(customername)
End If

Если n поставить равным 1,то с первым документом делает все как надо,но нужно чтобы он делал экспорт с выбранным док-ом
 

Omh

Lotus team
04.07.2007
2 210
1
#2
Взять
Код:
Set Dc = uiview.Documents
и обработать её
Или шмалять из под кнопки агента с Target = SelectedDocuments и в нём взять db.UnprocessedDocuments
 

susinmn

Well-known member
16.10.2007
529
3
#3
Dim coll As NotesDocumentCollection
Dim session As New NotesSession
Dim db As NotesDatabase
Set db=session.CurrentDatabase
Set coll=db.UnprocessedDocuments
Set doc=coll.GetFirstDocument
или
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesUIView
Set view=ws.CurrentView
Set db=session.CurrentDatabase
Set doc=db.GetDocumentByID(view.CaretNoteID)
 

TIA

:-)
Lotus team
15.05.2009
790
3
#5
Это будет выделенный документ.
Только лучше NotesSession.DocumentContext

Это вроде в Action не сработает так, как надо. Как надо сработает в агенте.
Да, в 5ке, только после второго нажатия срабатывал. В более старших версиях исправили.
 

Omh

Lotus team
04.07.2007
2 210
1
#6
TIA, погодь, DocumentContext этож тока в агенте.
Насколько я понимаю, речуга идёт про просто экшн во view.
 

Omh

Lotus team
04.07.2007
2 210
1
#8
Подтверждаю, работает не в embedded view.
Документ на котором стоит курсор.
В embedded view - не работает.
 
A

asdfghjkl

#9
В 7-ой версии работают оба варианта от susinmn.....спасибо!!!
 
Статус
Закрыто для дальнейших ответов.