Vtom

Есть форма, в ней поле "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") Создание объекта Worda
Call word.documents.add("C:\Return and Uplift.dot") Создание нового документа по шаблону Return and Uplift.dot
Set worddoc = word.activedocument Активация объекта
Присваивание полям-Worda значений из полей 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) сохранение документа-Worda с именем файла "John Doe.doc"
word.visible = True Сделать видимым окно Worda
word.quit закрытие Worda
End Sub

@ottyx

fio = uidoc.FieldGetText(word_)

fio = uidoc.FieldGetText("word_")

0

Vtom

В отладчике все равно ругается на fio = uidoc.FieldGetText("word_")

@ottyx

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

0

@morphyus

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

0

@wowo

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

0

Vtom

Спасибо большое "WOWA", я тоже начинающий программист. По Вашему замечанию все получилось.
Вопрос снят.

@wowo

Пожалуйста!!! )))))

0

@ottyx

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

0