Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Я могу передать в процедуру собранную массивную переменную?

248
21 декабря 2012 года
Dmitry2064
590 / / 06.12.2006
Собираю сноски из вордовского документа в массив...
Код:
ReDim mCollFn(mCnt)

mCollFn(0) = ""
For i = 1 To mCnt
Set Fn = ActiveDocument.Footnotes(i)
    If err > 0 Then Exit For
fnIndex = Fn.Index
fntext = Fn.Range.Text
fntext = Replace(Trim(fntext), vbTab, "")
    While Right(fntext, 1) = " " Or Right(fntext, 1) = Chr(13)
    fntext = Left(fntext, Len(fntext) - 1)
    Wend

mPos = Fn.Reference.Start
ActiveDocument.Range(Start:=mPos, End:=mPos).Text = "!!" & LTrim(Str(fnIndex)) & "!!"
' tut menyaju v samom texte etu snosku na ee metku, po kotorym potom budu ih rasstavlyat is sobrannogo massiva
If fntext = "" Then Fn.Delete: i = i - 1: GoTo skk

mCollFn(i) = fntext

'Debug.Print mCollFn((I), 0)
'Debug.Print mCollFn((I), 1)
'If I = 122 Then ActiveDocument.Footnotes(I).Range.Select: Stop ': MsgBox mCollFn((i), 0) & vbCr & mCollFn((i), 1)
'If I = 291 Then Stop
skk:
Next
248
22 декабря 2012 года
Dmitry2064
590 / / 06.12.2006
Оказалось, что передается точно также как и любая переменная. (проще, чем я предполагал)))

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог