Сделать выделенные документы ответными для другого документа с введенным юнидом

 Dim recCol As NotesDocumentCollection Dim doc As NotesDocument Dim s As New NotesSession Dim db As NotesDatabase Dim ws As NotesUIWorkspace Dim uivw As NotesUIView Set db = s.CurrentDatabase Set ws = New NotesUIWorkspace Set uivw = ws.CurrentView Set recCol = uivw.Documents '<если в представлении нет выделенных документов галкой> If recCol.Count = 0 Then If uivw.CaretNoteID <> "0" Then Set doc = db.GetDocumentByID(uivw.CaretNoteID) If Not doc Is Nothing Then Call recCol.AddDocument(doc) End If End If End If '<если в представлении нет выделенных документов галкой> If recCol.Count = 0 Then Msgbox "Не выбран ни один документ!" Exit Sub End If Dim mainDoc As NotesDocument Dim respDoc As NotesDocument enterunid: res = Inputbox$("Введите юнид главного документа..", "Ввод юнида документа") If res="" Then Exit Sub On Error Resume Next Err=0 Set mainDoc = db.GetDocumentByUNID(res) If Err<>0 Then Msgbox "Документ по данному юниду не найден в БД или документ битый. Введите другой юнид." Goto enterunid End If Set respDoc = recCol.GetFirstDocument() While Not respDoc Is Nothing Call respDoc.MakeResponse(mainDoc) Call respDoc.Save(True, False) Set respDoc = recCol.GetNextDocument(respDoc) Wend