Как получить значение поля из формы

Vlan

New member
04.04.2007
3
0
#1
Есть форма, в ней поле "word_", на форме кнопка с кодом. Не получается взять значение из поля и передать его в ворд. Спотыкается на строке fio = uidoc.FieldGetText(word_) Подскажите плиз что не так?

Sub Click(Source As Button)
Dim doc As NotesDocument
Dim todaydate As New notesdatetime("Today")
Dim word As Variant
Dim wordoc As Variant
Dim todaysdate As String
Dim orderid As String
Dim producedby As String
Dim storeid As String
Dim customername As String
Dim address As String
Dim citytown As String
Dim postcode As String
Dim daytimeno As String
Dim eveningno As String
Dim fio As String
fio = uidoc.FieldGetText(word_)
uidoc.Save
'Присваивание значений пересенным (Lotus)
todaysdate = todaydate.localtime
orderid = "2183763248"
producedby = s.username
storeid = "12345"
customername = "John Doe"
address = "Apartment 5c, 5 Test Avenue"
citytown = "Testtown"
postcode = "XX5 5XX"
daytimeno = "1234567890"
eveningno = "0987654321"
'Создание Word-документа
Set word = CreateObject("Word.Application") 'Создание объекта Word'a
Call word.documents.add("C:\Return and Uplift.dot") 'Создание нового документа по шаблону Return and Uplift.dot
Set worddoc = word.activedocument 'Активация объекта
'Присваивание полям-Word'a значений из полей notes-документа
worddoc.FormFields(1).result = todaysdate
worddoc.FormFields(2).result = orderid
worddoc.FormFields(3).result = producedby
worddoc.FormFields(4).result = storeid
worddoc.FormFields(5).result = customername
worddoc.FormFields(6).result = address
worddoc.FormFields(7).result = citytown
worddoc.FormFields(8).result = postcode
worddoc.FormFields(9).result = daytimeno
worddoc.FormFields(10).result = eveningno
worddoc.FormFields(11).result = fio
worddoc.saveas(customername) 'сохранение документа-Word'a с именем файла "John Doe.doc"
word.visible = True 'Сделать видимым окно Word'a
'word.quit 'закрытие Word'a
End Sub
 

Vlan

New member
04.04.2007
3
0
#3
В отладчике все равно ругается на fio = uidoc.FieldGetText("word_")
 
A

allex

#4
У меня такого характера скрипт работает без проблем...
Смотрите внимательнее свой скрипт.
 

morpheus

скриптописец
07.08.2006
3 915
1
#5
Для: Vlan
Проверте в отладчике , существует ли поле "word_" у uidoc.document - , чтото меня смущает символ _ в конце имени поля
з.ы. используйте hasItem
 

wowa

Well-known member
01.02.2007
845
0
#6
Я начинающий программист по Lotus, но где
Dim wks As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = wks.CurrentDocument
fio = uidoc.FieldGetText("word_")
 

Vlan

New member
04.04.2007
3
0
#7
Спасибо большое "WOWA", я тоже начинающий программист. По Вашему замечанию все получилось.
Вопрос снят.
 
A

allex

#9
При использовании чужих кодов будте внимательны, так как его хозяин использует у себя по своему.
Что за частую приводит к неправильной работе у других людей