Как сделать коллекции из Текстбоксов?

[vadimn]

Правда, тема касается Wordа, но, может быть, заинтересует многих. Захотелось мне сделать так, чтобы в Ворде были такие коллекции Текстбоксов, что любое изменение значения одного из элементов автоматически влекло бы соответствующее изменение других элементов, сколько бы их не было в документе. Например, присвоив значение TextBox2 "12 августа 2011 г.", автоматически изменились бы значения TexBox1?, TextBox3, TextBox4 и т.д. на это же значение. В этом же документе могут соседствовать TextBox-ы с другими именами, которые соответственно вели бы себя также, но реагируя на изменения только своего шаблона (Имя1, Имя2, Имя3...).
Все, что я смог сделать:

Option Explicit
Dim strDate As String

Private Sub TextBox1_LostFocus()
strDate = TextBox1.Value
TextBox2 = strDate
TextBox3 = strDate
TextBox4 = strDate
End Sub

Private Sub TextBox2_LostFocus()
strDate = TextBox2.Value
TextBox1 = strDate
TextBox3 = strDate
TextBox4 = strDate
End Sub

Private Sub TextBox3_LostFocus()
strDate = TextBox3.Value
TextBox1 = strDate
TextBox2 = strDate
TextBox4 = strDate
End Sub

Private Sub TextBox4_LostFocus()
strDate = TextBox4.Value
TextBox1 = strDate
TextBox2 = strDate
TextBox3 = strDate
End Sub

Но это как-то громоздко. И при добавлении нового текстбокса приходится вносить изменения во все процедуры.

[Юрий М]

В Вашей ситуации поможет использование так называемых классов.

[Дмитрий Щербаков(The_Prist)]

Код:

Private Sub TextBox1_LostFocus()
Dim sObjName as string, li as long,lNon as long
sObjName = "TextBox"
lNon = 1
strDate = TextBox1.Value
For li = 1 to 4
if li <> lNon then
Userform1.Controls(sObjName & li) = strDate
end if
Next li
End Sub

Хотя классы все же предпочтительнее, ввиду того, что при грамотном построении и написании кода вносить изменения потом в код не придется вообще.

[vadimn]

Спасибо, Prist!
Это было бы идеально, если вместо строчки:
Userform1.Controls(sObjName & li) = strDate
была бы такая строка:
ThisDocument.Controls(sObjName & li) = strDate
поскольку Текстбоксы мне нужны не на форме (Userform1), а в документе (ThisDocument). Но, к сожалению, VBA меня не понимает -:(

[Юрий М]

Так Вам на соответствующий Форум - по Word.

[vadimn]

Я понимаю, что немного не в теме, но всё-таки...

[doober]

не нашел варианта как добавить текстбоксы перебором.

[vadimn]

doober. Интересный вариант. Работает до тех пор, пока не добавишь TextBox5. После этого всё умирает и даже удаление этого TextBox5 не помогает восстановить работоспособность макроса...

[doober]

Я же писал.не могу перебрать контролы в Ворде
Только в код добавлять
Private Sub Document_Open()
ReStart
End Sub

 Sub  ReStart()
Dim evnt As ClassText
    Dim obj As Object
 
        Set evnt = New ClassText
        Set evnt.TextGroup = ThisDocument.TextBox1
        coln.Add evnt
        Set evnt = Nothing
           Set evnt = New ClassText
        Set evnt.TextGroup = ThisDocument.TextBox2
        coln.Add evnt
        Set evnt = Nothing
       
           Set evnt = New ClassText
        Set evnt.TextGroup = ThisDocument.TextBox3
        coln.Add evnt
        Set evnt = Nothing
 
     Set evnt = New ClassText
        Set evnt.TextGroup = ThisDocument.TextBox4
        coln.Add evnt
        Set evnt = Nothing
End Sub

[vadimn]

Красиво!
Я, правда, ещё новичок в VBA и программировании в целом, мало что понимаю, но, думаю, что смогу на основе этого кода двигаться в нужном направлении.
Спасибо, doober!