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

Este artigo descreve como criar e utilizar uma caixa de combinação UserForm como uma macro de introdução para um campo de formulário de texto. Esta macro pode ser utilizada como uma solução para a limitação de 25 itens nos campos de formulário lista pendente.

Nota : Para obter informações adicionais sobre como fazê-lo quando estiver a utilizar uma base de dados do Microsoft Access, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.
Para mais informações sobre como utilizar o código de exemplo neste artigo, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft: O modelo do Word, siga estes passos.

Nota : para fechar uma janela (por exemplo, uma janela de código ou a janela Propriedades), clique no X no canto superior esquerdo 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.
   
   NOTA: Se a Janela Project não aparecer, clique em Project Explorer no menu Ver .
3. No menu Inserir , clique em UserForm . Um novo UserForm e a caixa de ferramentas controlos aparecem. Clique com o botão direito do rato no UserForm e, em seguida, clique em Código . 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 feche a janela de código.
4. Clique com o botão direito do rato no UserForm e, em seguida, clique em Propriedades no menu de atalho. No separador alfabético , mude o nome (Nomeie) para frmcombo e, em seguida, mude o nome legenda para o Microsoft Word . Feche a janela UserForm Properties .
5. No separador controlos da caixa de ferramentas, seleccione a caixa de combinação e colocá-lo no seu UserForm. Clique com o botão direito do rato no controlo de caixa de combinação e, em seguida, clique em Código no menu de atalho. Alterar o código de caixa de combinação para o seguinte:

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

   e feche a janela de código.
   
   Nota : Texto1 é o nome de marcador do campo de formulário de texto que insere no modelo de procedimento do passo 2 do "Criar o texto formulário campo" deste artigo.
6. No separador controlos da caixa de ferramentas, seleccione no CommandButton e colocá-lo no seu UserForm como um botão Fechar . Clique com o botão direito do rato no CommandButton e clique em Código no menu de atalho. Alterar o código CommandButton para o seguinte:

   Private Sub Cmdclose_Click()
   
     Unload Me
   
   End Sub
   						

   e feche a janela de código. Clique com o botão direito do rato no CommandButton e clique em Propriedades no menu de atalho. No separador alfabético , mude o nome (Nomeie) para Cmdclose e mude o nome de Caption para Fechar . Feche a janela CommandButton Properties.

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

Criar a macro de introdução

1. Na janela Project, seleccione o TemplateProject.
2. No menu Inserir , clique em módulo . Será apresentada uma folha de código do módulo em branco.
3. Escreva o seguinte código:

   Sub gocombobox()
   
      frmcombo.Show
   
   End Sub
   					

A macro de Introdução está concluída. No menu ficheiro , clique em Close and Return to Microsoft Word . Avance para o procedimento "Criar o texto formulário campo" para criar o campo de formulário no modelo do Word.

Criar campo de formulário texto

1. No modelo, no menu Ver , aponte para barras de ferramentas e, em seguida, clique em formulários .
2. Posicione o ponto de inserção onde pretende que o resultado da lista pendente inserido. Na barra de ferramentas formulários , clique em Campo de formulário do tipo ' texto ' (o primeiro botão à esquerda). O campo de formulário de texto será inserido no modelo como sombreado cinzento.
   
   Nota : Se vir o { FORMTEXT } campo, prima ALT+F9 para desactivar os códigos de campo.
3. Clique com o botão direito do rato no Campo de formulário do tipo ' texto ' e, em seguida, clique em Propriedades no menu de atalho.
4. Na caixa de diálogo Opções de campo de formulário de texto , na secção de executar a macro clique na seta para baixo na caixa de entrada , seleccione a macro gocombobox e, em seguida, clique em OK .
   
   Nota : Certifique-se do nome do marcador do Campo de formulário do tipo ' texto ' é o mesmo que especificou no procedimento passo 4 da "criar o UserForm caixa de combinação" descrito anteriormente neste artigo.
5. Na barra de ferramentas formulários , clique em Proteger formulário .
6. Guarde e feche o modelo.

Para utilizar o modelo, clique em Novo no menu ficheiro . Seleccione o modelo e, em seguida, clique em OK . Aparece um novo documento baseado no modelo. O UserForm que contém a ComboBox com os itens é apresentado quando utilizar a tecla TAB para mover para o Campo de formulário do tipo ' texto ' .