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

Question

Я создаю шаблон Word 2003 с некоторыми полями в нем, поскольку это единственные фрагменты текста, которые должны измениться (например, название компании, адрес и т.д.).

Теперь, если человек, использующий форму, заполняет поле «Название компании» вверху (которое я создал как поле текстовой формы), как я могу ссылаться на это значение в другом месте шаблона?

Answer 1

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

• Щелкните правой кнопкой мыши по полю, затем выберите « Свойства».
• Убедитесь, что поле названо как то, что вы можете вспомнить
• Установите флажок Рассчитать при выходе
• Нажмите OK, чтобы закрыть диалог
• Нажмите Вставить -> Ссылка -> Перекрестная ссылка ...
• Убедитесь, что для параметра « Тип ссылки» установлено значение « Закладка», а для параметра « Вставить ссылку» - « Текст закладки»
• Выберите поле, значение которого вы хотите использовать
• Нажмите ОК

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

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

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

• Используя всплывающий редактор 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 и закройте его.

• Щелкните правой кнопкой мыши поле источника (то есть поле, содержащее значение, введенное пользователем) и выберите Свойства.
• Выберите UpdateHeader из списка макросов для запуска при выходе
• Нажмите ОК