Добрый день, у меня возник такой вопрос для самообразования:
Есть докумен Word.doc я его приатачиваю к документу LOTUS (поле attach)затем при нажатии на кнопку мне необходимо получить определенные данные из приатаченого документа, который имеют простую структуру [таблицу].
С этим особых вопросов нет делаю я это так:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
'Ссылка на документ
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Dim emo As NotesEmbeddedObject
Set emo=doc.GetAttachment("lotus.doc")
Set wdApp = CreateObject("Word.Application")
Dim spath As String
spath="c:\lotus.doc" 'куда положить временный файл
Call emo.ExtractFile(spath) 'выкладываем
wdApp.Visible=False 'Скрываем отрытый WoRD
wdApp.Documents.Open(spath)
If wdApp.ActiveDocument.Tables.Count >= 1 Then
strText = wdApp.ActiveDocument.Tables(1).Rows(1).Cells(1).Range.Text
'strText1 = wdApp.ActiveDocument.Tables(2).Rows(1).Cells(1).Range.Text
'Msgbox strText
Print( strText )
Call wdApp.ActiveDocument.Close ' Закрываем док
'Call wdApp.Close
'ActiveWindow.Close
Call wdApp.Application.Quit 'Закрываем WORD
End If
End Sub
Сложность возникает вот в чем:
В переменной [strText] возвращаеться значение, но у меня не получаеться сделать эту переменную [strText], глобальной для последующей работы с ней.
В Global -> Declorations пишу это:
Dim strText As Variant
Форма [докумен] рефрешиться, и есть вычисляемое поле, в которое я хочу занести значение по формуле
@If(strText="";"0";Colvo)
Но почему то не работет, подскажите верное решение.
