Я могу передать в процедуру собранную массивную переменную?
Код:
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
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
Оказалось, что передается точно также как и любая переменная. (проще, чем я предполагал)))