ввод текста из одной формы в другие

[andrey0701]

Подскажите, пожалуйста, каким образом можно присвоить значение вводимого текста в одну форму (TextBox) к другим формам (TextBox) и сколько таких значений можно приравнять (ориентировочно у меня в документе таких форм около 50).

[viter.alex]

Что-то провидческий дар у меня сегодня не пашет
В чем проблема? О каких формах идет речь?
Если мы говорим о пользовательских формах (почему их 50 в документе?), то все очень просто:

'Текст из первого текстового поля первой формы записываем в первое текстовое поле второй формы
Form2.TextBox1.Text = Form1.TextBox1.Text

Если же речь идет о полях для ввода текста, то каждое такое поле находится по умолчанию в закладке, а значит, на эту закладку можно сделать перекрестную ссылку.

[andrey0701]

просто, нужно чтобы один раз напечатав в акте (к примеру) в заданной форме - те же данные появлялись и в другой форме находящейся в документе. Сделал так как во вложении, но к сожалению не работает, а почему не понятно......
Если вопрос сам по себе дурацкий, то извиняюсь - я не программист.
если есть возможность, подскажите как это сделать.

[viter.alex]

Документ неплохой: видно, что человек старался. Скажи, такая форма документа обязательна? Или можно по-другому организовать ввод данных?
Не работает, потому что в документе у тебя 16 полей, по моим подсчетам, а обращаешься ты и к 20-му и к 30-му

[andrey0701]

это только две формы - предполагается сделать - девять документов (9 листов) объединённые в один .doc файл, вот поэтому я и написал про 50 полей
впринципе, форма - может быть и другой, но мне хочется понять, как это на конкретном примере организовать (заполнение).

[viter.alex]

Мда-а. Представляю себе этот ужас
Думаю, что логично будет делать так. Там, где нужно вводить данные, поставить либо текстбокс, как сейчас, либо, что предпочтительнее, поле ввода, т.к. оно уже имеет закладку. Но нужно еще знать, будет ли вводиться информаци куда-либо, помимо полей.
Далее. Там, где текст просто должен повторяться, ставить поля { DOCVARIABLE } и указывать имя переменной, из которой читать значение. А эту переменную задавать при редактировании соответствующего поля. Например, текст из поля TextBox1 должен повториться в трех местах. Нужно в обработчик события записать:

Private Sub TextBox1_Change()
  On Error Resume Next
  ActiveDocument.Variables.Add "var" & TextBox1.Name, TextBox1.Value
  If Err.Number = 5903 Then 'Если такая переменная в документе уже есть
    'Обновляем значение переменной
    ActiveDocument.Variables("var" & TextBox1.Name).Value = TextBox1.Value
    'Очищаем ошибку
    Err.Clear
  Else
    MsgBox Err.Description, vbCritical + vbOKOnly, "Ошибка при добавлении переменной " & "var" & TextBox1.Name, TextBox1.Value
    Exit Sub
  End If
End Sub

А в тех местах, где текст должен повториться поставить поле { DOCVARIABLE varTextBox1}
Но лично мне этот метод кажется не очень продуктивным. Я бы сделал форму с девятью вкладками (по количеству документов), вызывал бы эту форму при октрытии документа, и уже значения из формы вносил бы в документ.
Однако, остается много неясного, поэтому нужно больше информации: как часто это должно заполняться, откуда берутся данные для заполнения и т.д.
Попахивает работкой

[БуреВестник]

Я вот так представляю.

[viter.alex]

Вообще-то, человек так и делал. Но это непродуктивно.

[БуреВестник]

viter.alex
то есть проблема в обновлении данных в TextBox? Т.е. есть 50 TextBoxов, которые должны содержать одну и ту же информацию, все эти 50 TextBoxов ссылаются на один TextBox, назовём его TextBox_1.
Т.е. мы вводим данные в TextBox_1 и эти данные должны появиться в 50 TextBoxах?
И проблема в том, что надо лезть в VBA, заходить в каждый TextBox и нажимать Run?

Если проблема в этом, то смотрите вложенный файл.

[viter.alex]

Проблема не в обновлении, а в мозгах. Решение в лоб, конечно, будет работать, но очень все запутывается. Еще раз повторю: поля для ввода должны быть только там, где нужно вводить текст. Там, где текст просто копируется откуда-то, не должно быть поля ввода. Следование такому нехитрому правилу позволит избежать многих подводных камней.