WD2000: Como criar uma caixa de combinação contendo mais de 25 itens

Este artigo descreve como criar e usar uma caixa de combinação UserForm como uma macro de entrada para um campo de formulário texto. Esta macro pode ser usada como uma solução alternativa para a limitação de 25 itens nos campos de formulário drop-down.

Observação : Para obter informações adicionais sobre como fazer isso quando você estiver usando um banco de dados Microsoft Access, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
Para obter mais informações sobre como usar o código de exemplo neste artigo, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft: No modelo de Word, siga estas etapas.

Observação : para fechar uma janela (por exemplo, uma janela de código ou a janela Propriedades), clique no X no canto superior direito da janela.

Criar a caixa de combinação UserForm

1. No menu Ferramentas , aponte para macro e, em seguida, clique em Editor do Visual Basic .
2. Na Janela Project , seleccione o TemplateProject.
   
   Observação: Se a Janela de projeto não for exibido, clique em Project Explorer no menu Exibir .
3. No menu Inserir , clique em UserForm . Um novo UserForm e a caixa de ferramentas controles aparecem. Clique o formulário de usuário com o botão direito do mouse e clique em View Code . Adicione o seguinte código

   Private Sub UserForm_Initialize()
   
     ComboBox1.ColumnCount = 1
   
     'Load data into ComboBox
   
     ComboBox1.List() = Array("Zero", "One", "Two", "Three")
   
   End Sub

   e, em seguida, feche a janela código.
4. Clique o formulário de usuário com o botão direito do mouse e, em seguida, clique em Propriedades no menu de atalho. Na guia alfabético , renomeie (nome) para frmcombo e renomeie legenda para o Microsoft Word . Feche a janela do UserForm Properties .
5. Na guia controles da caixa de ferramentas, selecione ComboBox e colocá-lo em seu UserForm. Clique com o botão direito do controle ComboBox e clique em View Code no menu de atalho. Altere o código ComboBox para o seguinte:

   Private Sub ComboBox1_Change()
   
      ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
   
   End Sub
   						

   e, em seguida, feche a janela código.
   
   Observação : Text1 é o nome de indicador do campo de formulário texto que você inserir no seu modelo no procedimento da etapa 2 do "criar o formulário campo de texto" deste artigo.
6. Na guia controles da caixa de ferramentas, selecione o CommandButton e colocá-lo em seu UserForm como um botão Fechar . Clique no CommandButton com o botão direito do mouse e clique em View Code no menu de atalho. Altere o código CommandButton para o seguinte:

   Private Sub Cmdclose_Click()
   
     Unload Me
   
   End Sub
   						

   e, em seguida, feche a janela código. Clique no CommandButton com o botão direito do mouse e clique em Propriedades no menu de atalho. Na guia alfabético , renomeie (nome) para Cmdclose e, em seguida, renomeie legenda para Fechar . Feche a janela Propriedades de CommandButton.

A caixa de combinação UserForm está concluída. Vá para o procedimento de "Macro a entrada" para criar a macro de entrada.

Criar a macro de entrada

1. Na janela Project, seleccione o TemplateProject.
2. No menu Inserir , clique em módulo . Uma folha de código do módulo em branco será exibida.
3. Digite o código a seguir:

   Sub gocombobox()
   
      frmcombo.Show
   
   End Sub
   					

A macro de entrada está concluída. No menu arquivo , clique em Fechar e retornar ao Microsoft Word . Vá para o procedimento "Criar o campo de formulário de texto" para criar o campo de formulário no seu modelo do Word.

Criar o campo de formulário texto

1. No seu modelo, no menu Exibir , aponte para barras de ferramentas e, em seguida, clique em formulários .
2. Posicione o ponto de inserção onde deseja que o resultado da lista drop-down inserido. Na barra de ferramentas formulários , clique em Campo de formulário texto (o primeiro botão à esquerda). O campo de formulário texto será inserido no seu modelo como sombreamento cinza.
   
   Observação : se você vir o { FORMTEXT } campo, pressione as teclas ALT+F9 para desativar os códigos de campo.
3. Clique no Campo de formulário texto com o botão direito do mouse e, em seguida, clique em Propriedades no menu de atalho.
4. Na caixa de diálogo Opções de campo de formulário texto , na seção Executar macro , clique na seta para baixo na caixa de entrada , selecione a macro gocombobox e, em seguida, clique em OK .
   
   Observação : Verifique se o nome do indicador do seu Campo de formulário texto é o mesmo que você especificou no procedimento de etapa 4 do "criar o UserForm Combo box", anteriormente neste artigo.
5. Na barra de ferramentas formulários , clique em Proteger formulário .
6. Salve e feche o modelo.

Para usar o modelo, clique em novo no menu arquivo . Selecione o modelo e, em seguida, clique em OK . Um novo documento baseado no seu modelo aparece. O UserForm que contém a ComboBox com seus itens é exibido quando você usar a tecla TAB para mover para o Campo de formulário texto .