выделение нескольких документов

Статус
Закрыто для дальнейших ответов.

makaset

Well-known member
14.03.2007
128
0
#1
привет Всем. помогите организовать цикл по выделенным документам. в данном коде если выделить несколько документов он присваевает только 1

Dim ses As New NotesSession
Dim ws As New NotesUIWorkspace
Dim coll As NotesDocumentCollection
Dim cdoc As NotesDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim picklist As Variant

Set db =ses.CurrentDatabase
Set doc = ws.CurrentDocument.Document
Set coll = ws.PickListCollection(3,True,db.Server,db.FilePath,"Zakladka","Выбор...","Выберите процесс")
Set cdoc = coll.GetFirstDocument
If Not cdoc Is Nothing Then
doc.Na=cdoc.Na
doc.FIO=cdoc.FIO
doc.Naim=cdoc.Naim
End If
 
Статус
Закрыто для дальнейших ответов.