Как скопировать значение от одного поля до другого в Word 2003

Попробуйте это:

• Щелкните правой кнопкой по полю, затем нажимают Properties.
• Удостоверьтесь, что поле называют как что-то, что можно помнить
• Отметьте флажок Calculate on Exit
• Нажмите "OK" для закрытия диалогового окна
• Нажмите Insert-> Reference-> Cross-reference...
• Проверьте, что Ссылочный тип установлен Отметить и Вставить ссылку на, установлен Отметить текст
• Выберите поле, значение которого Вы хотите использовать
• Нажать "OK"

Обратите внимание, что это не может работать на все типы поля.

Если Вы захотите эти ссылки в заголовке, то они не обновят автоматически. Чтобы заставить их обновить автоматически, когда пользователь выходит из исходного поля, необходимо создать макрос:

• Выберите Инструменты-> макро-> Макросы... из главного меню
• Введите UpdateHeader в Макро-текстовое поле имени
• Нажмите Create

• Используя редактора VBA, который открывается, замените код по умолчанию следующим:

  Sub UpdateHeader()
  Dim i As Integer
  
  'exit if no document is open
  If Documents.Count = 0 Then Exit Sub
  Application.ScreenUpdating = False
  
  'Get page count
  i = ActiveDocument.BuiltInDocumentProperties(14)
  
  If i >= 1 Then 'Update fields in Header
  ActiveDocument.Sections(ActiveDocument.Sections.Count) _
  .Headers(1).Range.Fields.Update
  End If
  
  Application.ScreenUpdating = True
  End Sub
  

• Нажмите значок сохранения в редакторе VBA и закройте его

• Щелкните правой кнопкой по исходному полю (т.е. тот, который содержит значение, вводимое пользователем), и нажмите Properties.
• Выберите UpdateHeader из списка макросов для работы выхода
• Нажать "OK"