Как передать значение поля в процедуру из библиотеке скриптов

[rm2005]

Здавствуйте, у меня вот такой вопрос

Подцепил директивой use "MyProc" процедуру из библиотеке скриптов

sub MyProc(MyVal as variant) 
'тут чего-то делаем
end sub

вызываю

Set CurrentUIDoc = CurrentUIWorkspace.CurrentDocument
Set CurrentDoc = CurrentUIDoc.Document
'MyID - поле документа
Call MyProc(CurrentDoc.MyID) - здесь ошибка несовпадения типов "Type Mismatch"

Получилось передать значение только изменив параметр в процедуре на стринг и передав значение поля через промежуточную строковую переменную. Но это мне кажется как-то криво.

Подскажите, как лучше сделать.

 

[Hedg]

а что мешает использовать функцию преобразования в cтроку Cstr ???

 

[rm2005]

Для: Hedg
Хотелось бы передавать ссылку на поле или его значение, а уже приобразовывать внутри процедуры. Можно ли так делать?

 

[Hedg]

Как мне видиться

Call MyProc(Cstr(CurrentDoc.MyID))

 

[rm2005]

Для: Hedg
Поменял

sub MyProc(MyVal as string)

Вызываю

Call MyProc(Cstr(CurrentDoc.MyID))

Всё равно "Type Mismatch"

 

[Hedg]

А вот так

Call MyProc(Cstr(CurrentDoc.MyID(0)))

 

[Ogion7]

<!--QuoteBegin-rm2005+24:04:2007, 14:54 -->
<span class="vbquote">(rm2005 @ 24:04:2007, 14:54 )</span><!--QuoteEBegin-->Хотелось бы передавать ссылку на поле или его значение, а уже приобразовывать внутри процедуры. Можно ли так делать?

[snapback]63279" rel="nofollow" target="_blank[/snapback]​

[/quote]
только если передать процедуре сам документ

 

[rm2005]

Для: Hedg
Спасибо, так работает. А если в поле состоит из 2 строк, можно ли передать?

Call MyProc(Cstr(CurrentDoc.MyID.text))

не работает.

Для: Ogion7
Буду делать через документ.

 

[Hedg]

Для: rm2005
Если строк больше чем одна, то так работаь не будет.

 

[Ogion7]

если тама список, можно через ForAll