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

[vadimn]

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

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

но не в документе. Это было бы возможно, если вместо строчки:

Userform1.Controls(sObjName & li) = strDate

была бы такая строка:

ThisDocument.Controls(sObjName & li) = strDate

поскольку Текстбоксы мне нужны не на форме (Userform1), а в документе (ThisDocument). Но, к сожалению, VBA меня не понимает
Вот посмотрите вложение...

[Казанский]

В Ворде до контролов в документе приходится добираться окольным путем
Попробуйте

activedocument.inlineShapes(1).OLEFormat.Object="eee"

Соответственно, чтобы найти контрол по имени, надо перебирать коллекцию inlineShapes, пока ...Object.Name не будет равен нужному.

Если контрол является не "картинкой в тексте", как здесь, а "плавающей картинкой", то надо использовать коллекцию activedocument.Shapes.

[Казанский]

Можно создать массив коллекций контролов, коллекция соответствует группе.
Потом с ним работать быстро и удобно.
Массив коллекций создается при первом вызове и сохраняется в памяти между вызовами (переменные Static)
В файле созданы две группы. Изучайте:

[vadimn]

WOW!
Спасибо, Казанский!
Я - дилетант, но буду пытаться понять как это работает.