A
asdfghjkl
Есть вьха с документами. Необходимо из выделенного документа экспортировать содержимое поля док-а в 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,то с первым документом делает все как надо,но нужно чтобы он делал экспорт с выбранным док-ом
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,то с первым документом делает все как надо,но нужно чтобы он делал экспорт с выбранным док-ом