Como criar uma caixa de combinação do Word que tem mais de 25 itens a partir de um banco de dados do Microsoft Access

No Microsoft Office Word 2003 e em versões anteriores, aponte para Macro no menu Ferramentas e, em seguida, clique em Editor do Visual Basic.

No Word 2007, clique na guia desenvolvedor e, em seguida, clique em Editor do Visual Basic

Na janela Project , seleccione o TemplateProject.

Observação: se a janela do projeto não for exibido, clique em Project Explorer no menu Exibir .

No menu Inserir , clique em UserForm. Um novo UserForm e a Caixa de ferramentas controles devem aparecer. Com o botão direito dentro do UserForme, em seguida, clique em Exibir código no menu de atalho. Adicione o seguinte código ao evento Initialize :

Option Explicit
'Define Variables

Private Sub UserForm_Initialize()

Dim dbDatabase As Database
Dim rsNorthwind As Recordset
Dim i As Integer
Dim aResults()

' This code activates the Database connection. Change 
' the path to reflect your database.
Set dbDatabase = OpenDatabase("C:\My Documents\NorthWind.mdb")

' This code opens the Customers table.  Change the Table 
' to reflect the desired table.
Set rsNorthwind = dbDatabase.OpenRecordset("Customers", dbOpenSnapshot)

i = 0

   With rsNorthwind
   ' This code populates the combo box with the values 
   ' in the CompanyName field.

      Do Until .EOF
         ComboBox1.AddItem (i)
         ComboBox1.Column(0, i) = .Fields("CompanyName")
         .MoveNext
         i = i + 1
      Loop

   End With
End Sub

No menu Ferramentas , clique em referências.

Clique em Microsoft DAO 3.6 Object Library.

Clique Okey para fechar a caixa de diálogo References .

Feche a janela de código.

Clique do UserForme, em seguida, clique em Propriedades no menu de atalho. Na guia alfabético , renomeie (nome) para frmcomboe renomeie a legenda para o Microsoft Word. Feche a janela do UserForm Properties .

Na guia controles da caixa de ferramentas, marque a caixa de combinação e coloque-a no UserForm. Clique com botão direito no controle ComboBox e, em seguida, clique em Exibir código no menu de atalho. Altere o código ComboBox para:

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

Observação: Text1 é o nome de marcador do campo de formulário de texto que você inserir no seu modelo no procedimento da etapa 2 do "criar o campo de formulário texto" deste artigo.

Feche a janela de código.

Na guia controles da caixa de ferramentas, selecione CommandButton e colocá-lo no formulário de utilizador como um botão Fechar . Clique com botão direito CommandButtone, em seguida, clique em Exibir código no menu de atalho. Altere o código CommandButton para:

Private Sub Cmdclose_Click()
   End
End Sub

Feche a janela de código.

Clique com botão direito CommandButtone, em seguida, clique em Propriedades no menu de atalho. Na guia alfabético , renomeie (nome) para Cmdclosee, em seguida, renomeie legenda para Fechar. Feche a janela Propriedades de CommandButton .

Na janela Project, seleccione o TemplateProject.

No menu Inserir , clique em módulo. Uma folha de códigos de módulo em branco é exibida.

Digite o código a seguir:

Sub gocombobox()
   frmcombo.Show
End Sub

No modelo, no menu Exibir , aponte para barras de ferramentase, em seguida, clique em formulários.

Posicione o ponto de inserção onde você deseja que o resultado da lista suspensa 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 é inserido no modelo como sombreado cinza.

Observação: se você vir o campo FORMTEXT} {, pressione ALT + F9 para desativar os códigos de campo.

Clique com botão direito no Campo de formulário textoe, em seguida, clique em Propriedades no menu de atalho.

Na caixa de diálogo Opções do campo de formulário texto , na seção Executar macro em , selecione a macro gocombobox o entrada: chamado caixa de combinação.


Nota: Verifique se o nome de marcador do campo de formulário de texto é o mesmo que você especificou na etapa 9 do procedimento "Criar a caixa de combinação UserForm" neste artigo.

Na barra de ferramentas formulários , clique em Proteger formulário.

Salve e feche o modelo.