Como copiar valor de um campo para outro no Word 2003

Question

Estou criando um Modelo do Word 2003 com alguns campos, pois são os únicos bits de texto que devem ser alterados (coisas como Nome da Empresa, Endereço, etc.).

Agora, se a pessoa que usa o formulário preencher o campo Nome da empresa na parte superior (que eu criei como um campo de formulário de texto), como posso fazer referência a esse valor em outro lugar no Modelo?

    

Answer 1

Tente isto:

• Clique com o botão direito do mouse no campo e clique em Propriedades .
• Assegure-se de que o campo seja nomeado como algo que você possa lembrar
• Marque a caixa de seleção Calcular ao sair
• Clique em OK para fechar a caixa de diálogo
• Clique em Inserir - > Referência - > Referência cruzada ...
• Verifique se o Tipo de referência está definido como Marcador e Inserir referência está definido como Texto do marcador
• Selecione o campo cujo valor você deseja usar
• Clique em OK

Observe que isso pode não funcionar para todos os tipos de campo.

Se você quiser essas referências no cabeçalho, elas não serão atualizadas automaticamente. Para que eles sejam atualizados automaticamente quando o usuário sair do campo de origem, você precisa criar uma macro:

• Selecione Ferramentas- > Macro- > Macros ... no menu principal
• Insira UpdateHeader na caixa de texto Nome da macro
• Clique em Criar

• Usando o editor de VBA que aparece, substitua o código padrão com o seguinte:

  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
  

• Clique no ícone salvar no editor do VBA e feche-o

• Clique com o botão direito do mouse no campo de origem (ou seja, um que contenha o valor inserido pelo usuário) e clique em Propriedades .
• Selecione UpdateHeader na lista de macros para executar na saída
• Clique em OK